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Foreword — by 
Tim Hartnell 


Explosive games. Sounds exciting, doesn’t it? In this book 
you'll find many great, great games to keep you locked to 
your ZX81 for hours. 


This book has listings for every game we thought you might 
want, including GALACTIC INTRUDERS, BREAKOUT, 
DRAUGHTS/CHECKERS, STAR TREK, DEATH MAZE, 
4-IN-A-ROW and an 8K ADVENTURE-type program 
SMUGGLERS BOLD. As well, there are a host of new 
games, and adaptations of old favourites. Many of the 
programs will run in just 1K (including a simplified SPACE 
INVADERS-type program). 


Some of the games are based on chance — the dreaded 
Sinclair random number generator — and others depend on 
skill, both yours and the computer. But we've tried to 
ensure that each and every program contains at least one 
programming technique which you'll be able to adapt for 
your own programs. 


You can, if you like, just enter the programs as listed, and 
play them. However, you're likely to get much more 
enjoyment from working with them, altering them as you 
choose, deleting some sections, improving others, and so 
on, until the game carries your personal stamp. Many of the 
1K games can be improved if you have extra memory. At 
the very least, the player prompts can be made more ‘‘user- 
friendly’, and the rules explained more exactly. 


You should learn a lot from careful examinations of the 
listings. We've included a brief preface to each program, 
which is designed to explain —if it’s not immediately 
evident from pressing RUN — how to play the game. For 
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some programs, we've also added a few words to clarify the 
algorithm used. 


Colin Hughes of Luton and | wrote most of the games, with 
others from G D Charlton of Romford, 


I'd like to thank these programmers, especially Colin, for 
their contributions, and also thank members of the National 
ZX80 and ZX81 Users’ Club for the enthusiasm and 
friendliness they've shown in the past 18 months or so. 


If we haven't yet had the pleasure of meeting you at a 
computer show, please come to the club stand at the next 
show and make yourself known. And if you haven't yet 
joined the club — which is probably the largest single users’ 


club in the UK — why not think about joining? We publish a 
monthly magazine INTERFACE, which is chock-a-block 
with ZX80, ZX81, ATOM and PROTON news, along with 
many programs for each machine, software, hardware and 
book reviews, contact addresses, letters from members, 
competitions and more. An application form for the club is 
near the back of this book. 


Looking forward to hearing from you, 
TIM HARTNELL 
London, November 1981. 


DEATH MAZE 


The ZX81 generates a maze, as you can see in the printout. 
You (the $ sign) start at the left hand side. You must get to 
the right as quickly as possible, using ‘Q” (up), ‘’Z’’ (down) 
and “’L’’ (right). The score is being decremented all the 
time. 





ND UNO SCORE 
BEST SO FAR? @282 





END OF ROUND. SCORE See 
BEST SO FAR: 6516 5 


If you hit a black line (rather than going through the space), 
the score drops dramatically. If you hit any border (except 
the right hand one), that round of the game is automatically 
terminated. 


There is a highest score feature, and you should be able to 
get a score greater than 13504 with practice. Delete the 
FAST (10) and SLOW (9490) lines if you want to see the 
ZX81 build the DEATH MAZE between each round. 


1S FOR B=2 TO 38 STEP 2 
24 FOR A=a TO 19 
30 PRINT AT A.B: "E* 


A 
45 PRINT AT RND#1443,6;5° " 


68 FOR A=a TO 30 2 
7@ PRINT AT @,A; “#"; AT 19,A; “# 


88 NEXT A 
Q9@ FOR B=1 To 
10@0@ PRINT AT (On: AT B,30; " 


11@ NEXT 

12e GOSUB 5 5200 

125 GOTO 167 af 

250 PRINT AT A.B; "BE 

iss LET z=2-673 : Gs 
168 PRINT AT 50, @: “SCORE: “;Z; 


165 RETURN 

167 LET ZS$=INKEY$ 

470 YF Z$="" THEN LET Z&=A$ 
18@ LET Z=Z-5e 

20@ LET Y=A 


xX =6 
21S REN DELETE NEXT LINE FOR 
FASTER GAME 
2i?7? LET R=RNDO#RND#RNO 
Bee LET A=A+ (ZH="2") -(Z28="O0") 
230@ LET BABA ee eas 
232 PRINT AT Y. Stes 
233 IF PEEK (peek 16396 +256 #PEE 
K poe aes THEN GOSUS 
18 
235 PRINT AT 
255 IF W218 on’ At OR B<1 THEN 
LET Z=INT (2/3) 
26@ IF A218 AR A<«2 OR Bil OR B> 
29 THEN GQTO 518 


490 LET AS=Z25 

5e@ GOTO 167 

$10 PRINT AT 28,0; “END OF ROUND 
SCORE: “Zz 

S2@ IF Z>U THEN LET U=z 

S3@ FOR G=1 TO 6 

54e@ PRINT AT 21.3. “BEST SQ FAR: 
:U 


, $45 PRINT. AT A,B; “BG AT A,B; $" 
@ PRINT AT 21,3; "SEE" 


ASTER-DIVE 


You are in control of a swinging line of asterisks, which you 
must guide -- using ‘“’M”’ and “’Z” -- through randomly 
appearing blobs. The longer you last, the higher your score, 
which appears at the end of the game. You should be able to 
get more than 275. This is for a 1K ZX81. 


10 LET X=PI+PT 


40 PRINT Ar Yo Ms #" 

S@ SCROLL 

6@ LET *=X+ (CINKEYS$="M" AND X<S 
Pee ee Geuee AND X>PT) 

62 LET sUtZ 

6S IF RND>- 7 THEN GOTO 4@ 

78 PRINT AT RNO#2S+5.RNO#30; "RE 


8@ PRINT AT RND#15+5.,RND#3G; “HR 


9@ PRINT AT Y., 

110 IF PEEK (PERK 16395 +256 PEE 
K 16399) <>8 THEN GOTO 4@ 

12@ PRINT U 


STAR TREK 


This is a fascinating, and somewhat addictive game, in 
which you patrol a sector of the galaxy, in charge of a space 
ship crewed by such well-known spacers as Dr Spock, 
Scottie, Lt. Uhura, Chekov and Sulu. (Note that these 
names, and the name STAR TREK, are trademarks of Para- - 
mount Pictures Corporation.) There are 20 or so aliens in 
this sector of the galaxy. You are the dollar sign on the 
display. 


& re ee Goes 
ENERO i 

: WN KILOS 

ALTEALLY: by 


GEL 


oe 
4,4 
Water “Becton 


YOUR ‘ORDER, 





At any time, you move, scan or fire. You can move one 
square at a time north/south or east/west, and can fire only 
into the next square. 


Your scanners operate in two ways: 

SHORT RANGE looks into the eight squares immediately 
- surrounding you; and 

LONG RANGE looks, in the specified direction, at a single 


square two squares away from you. 


If you land on an alien ship the game is over. When you hit 
an alien, an inverse asterisk appears in its location, and your 
ALIEN KILL TOTAL is incremented. If there is no alien in 
that square, an inverse X appears so you know not to bother 
with that square again. The aliens do not move around 
during the course of a game. You have limited reserves in 
your energy bank and must try and kill as many aliens as you 
can before your energy runs out. 


Careful use of your scanners can make sure you (a) waste as 
few shots as possible; and (b) don’t land on an alien. Note 


90 av 
ANS SAY. 

YOURE INS) 7 
(e777 





that long-range scanning uses up more energy than does 
short-range. 


An alien can only shoot back after you have fired your laser 
at it (which reveals your position) and if the alien is within a 
single square of you. Damage to your ship from an accurate 
alien shot is shown in energy terms (that is, energy is 
drained from your bank). The game continues until you land 
on an alien ship, or run out of energy. 
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2@ GOSUB 23e@e0 

25 GOSUB sBeeA 

3@ GasuB s9s5se 

48 GQSUB 7ee0e 

Sa GOSUB 695@e 

88 GOSUB 7500 

1@8@ PRINT “WHAT IS YOUR ORDER." 
12@ PRINT TAB S; “SIR?".,.TAB 12; 
“4 —- SCAN"; TAB 12;"2 - MOVE"; TAB 
42:°3 - FIRE” 

4¢@ INPUT DO 

458 IF D<2 GR ees THEN GOTO 2148 
15S Gosue 695 

168 GoSsUB ieeexD | 

17@ FOR W=i1 TO 

28@ PRINT AT 2@, 35; PERER"Z AT 2a 


So 

190 NEXT WU 

5ee@ GOTO 38 

1820 PRINT TAB 4; “BBB SCANNER ED" 
1233@ GOSUB 7500 

16406 PRINT “CLOSE (13 OR “."“LONG 
-RANGE (2), SIR?" 

1@6@ INPUT K 

108@ LET E=E-102#K 

4690 GOSUB 6958 


1106 IF K=2 THEN GOTO 1568 

1128 IF A(B+1,C)=1 OR AI(B+1,C+1) 
=1 QR AC(B,C+1) =1 OR a es 1,Cj=i G 
R A(B-1.C-1) =1 OR ACB, -13=1 OR 
R(B+1,C-1) =1 OR A(B-1, G44) =3 THE 


N PR RINT z%; IN VICINITY, ‘*, “SIR” 
11483 RETURN 

15@0 GQSUB 7500 

aee PRINT ar Sia eee N 


S-2. E- 
1525 PRINT TAB 6. “CENTER A NUMNBE 


2530 INPUT N 
1540 LET 2=@ 
156@ IF N=1 ? AND A(B-2.C} =1 THEN 


1 
1538 ae N=2 AND A(B4+2.C)} =1 THEN 
4680 IF N=3 AND A(B.C+2) =1 THEN 


ET 1 

4620 IF N=488 AND A(B,C-2)=1 THE 
N LET zZ=1 

16308 GOSUB 7S5e@ 

16423 PRINT “LONG-RANGE SCANNER R 


EPORT IS" 
2166@ IF Z=1 THEN PRINT “POSITIVE 


4530 IF Z=@ THEN PRINT “NEGATIVE 


1790 RETURN 
2020 LET E=E-5@ 


3 =@ 
3} =@ 
RECTIOQN (N/’S)7" 


1 
2120 IF AS="s" THEN LET 68=Bt?2 
213@ GOSUB 7S5ee@ 
2149 PRINT “NOW AT “FS Bs". sc 
216@ PRINT TAB 12: ~* (Es) 7 
2180 INPUT AS 
220@0@ LET cC=C-1 
2220 IF AS="E" THEN LET C=C+2 
2240 PRINT “NOW AT "3B; “3c 
2260 IF A(B.C)=1 THEN boro SS5ee@ 


Sao 
3@2@ PRINT “DIRECTION OF FIRE (N 


3@80@ IF AS="N" THEN LET G=G+2 
310@ PRINT TAB 12," (Es) tT" 
3Sil2@Q LET F=C-1 

3140 INPUT RAS 

3166 IF AS="E°" THEN LET F=F +42 
3180 LET E=E-1060 

319@ IF A(G,F}<>1 THEN GOTQ 3S3San 
3195 GOSUB 7520 

3200 PRINT “YOU HIT THE “:t$ 
322@ LET AL=AL+1 

3268 LET Bort? =4q 


3305 LET B«(G,F} =3 
3316 PRINT “YOU Sats. SiR” 


xT _ G 
33206 PRINT “THE “.2$;." ARE". “SHC 
OTING BACK" 
3330 FOR G=1i TO 30 
3335 NEXT G 
S337 GOSUB eee 
3340 IF RNO>. THEN GOTO 34206 
336@ PRINT 2tHEY HIT us. SIR” 
3378 GOSUB Seee 
3380 LET E=E-10902RND 
3392 RETURN 
342@ PRINT “THE ";2Z2$;" MISSED. & 


34608 RETU 

38e0 GOSUB 6950 

3805 SCRO 

38190 PRINT “ENERGY BANKS EXHAUST 
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3815 
Zeee 

EN"; 
35 3e@ 
385a 
3566 
3878 
38650 
G ms 


SCROLL 
PRINT 


SCR 

PRINT 
SCROLL 
PRINT 
“3 INT 


“YOU KILLED 


“SALS AL 


IF Bote THEN PRINT “S*“ 


“QN THIS MISSION" 
“YOUR COMMANDER RATIN 


(AL 6241008) 


36908 GOTO 338e5 
S8@@Q@ REM END 

558@ GOSUB 6950 
AT 15,0; “YOUR SHIP HA 


5S52e 
S LAN 


268 





PRINT 

DED ON A", 2§;° VESSEL” 
S540 PRINT AT 15,0; Wot 

GOTO cose 

STOP 


53e@a@ 


695@ PRINT ATF 13,0:" 


e560 
3B, ., 
4278 


5208 
Ss you 
7540 
7560 
LOen 


PRINT 
RETURN 
REM ST 
eR ee 


PRINT 
PRINT 


PRINT 
GOSUB 


R 

LET R= 
IF R=0e 
HUMAN 

IF R=1 


IF R=2 


“TF R=3 


IF R=4 
RETURN 
STOP 

REM PR 
PRINT 


AT 13,0; 
ATUS 


AT 2,14; “ENERGY BANK : 


NT 
7@3e@ IF wees THEN GOTO 3800 
76490 IF AL>@ THEN PRINT AT 3.14; 
see KILL"; AT 4,17; “TALLY: “A 


AT 7.14, “YOU ARE AT “ 


AT 6.14," 


AT 8.14. "IN 
8500 
“ SECTOR” 


AT 12,90: 
N 


INT (RND#S) 
THEN PRINT 
5S sary," 

THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 


INT OUT 
AT @.@; 


“SPOCK: SF 
“SCOTT: ‘ 
“LT. UHUR 
“CHEKOU: 

“SUL: "5 


6016 PRINT " 123456769e" 
S$@20 FOR @=1 TO 18 
8025 PRINT AT @.13; “RV: AT @,.13.5" 


6e308 IF @<2@ THEN PRINT @;° 3 
8@35 IF 8=18 SRE ane Q; 


=4 THEN PRINT “E"; 


S220 PRINT |" 12345675890" 
8599 REM SECTOR 
LET 0=62C 

S540 TF @ci@ THEN PRINT “ANTARES 
8560 IF @>9 AND 9¢20 THEN PRINT 

80 Ir’ 9219 AND @¢3@ THEN PRINT 
6698 If 9229 AND ©<4@ THEN PRINT 
8520 IF 9239 AND @<S@ THEN PRINT 
8640 IF 0>49 AND @<6@ THEN PRINT 

TAIR"; 


@66@ IF 9>59 AND ®<78 THEN PRINT 
“SAGITTARIUS”; 

apt e ptsee te AND @¢6@ THEN PRINT 

S7ee@ IF @>792 AND @<9@ THEN PRINT 
“SIRIUS" 

anne IF @389 THEN PRINT “BETELGE 


# 
874@ RETURN 
ss99 STOP 
S@@@ DIM A(1@.1@) 
992@ DIM B(10,28) 
9958 FOR A=1 TO 20 
9080 LET X=INT (RND#10+1) 
9188 LET Y=INT (RND#10+1) 


=2 
=2 


eT 
ane IF €<. 733 OT HEN LET Z#="BRARK 


NS 
3300 IF £&>.33 AND E<.66 THEN LET 
7$="URERKTONIONS " 
aoae IF E>.66 THEN LET Z$="POLLU 


XIAN 
9348 LET inn 1800 +2066 #RND 


$258 het 13 


DODGEM 


This is more fun than most car-driving programs. You, an 
inverse Y, havea limited time in which to hit as many asterisks 
as you can. “Z"’ and “C”’ control your car. 





1@ FOR I=1 Ta 6 

20 PRINT TAB 15;"]" 

306 NEXT I 

3S FOR I=1 TO 5S@ 

4@ LET A=INT (P+RND#5-2) 


41 IF A<@ OR ADd14d4 THEN LET AH=T 
NT CRND#15) 
ger a pee B,A; "22"; AT 8,15; " 


3.P: 
S@ SCROLL 
ioe aun INKEY $="Z" AND P¢>9 THEN 
Ba IF INKEY $="C" AND P<>14 THE 
N LET P=P?+1 
202 LET PI=PEEK 163964256 2PEEK 
16397 


1@2 IF PEEK (P14+14P43£17) =23 TH 
EN GOTO 4200 

195 PRINT AT 3.P; "Hi" 

196 PAUSE 15 


400 PRINT AT 2,4; “FF FFSRBANG EEE 
41@ PRINT AT 3.P; "HE" 


sea 
43@ LET H=H+2 
450 GOTO 48 


GALACTIC INTRUDERS 


The INTRUDERS in this game have a fearful weapon - a 
horrid black bird which swoops down at you without 
warning. You use “5” and “’8” to move right and left, and 
‘1'' to fire. Your score increases with every INTRUDER you 
destroy, and the INTRUDER gets a score every time a black 
bird swoops onto you. The tally at the end is based on the 
difference between your score and the INTRUDERS’ score. 
There is a highest score feature. This game needs more than 
1K. 
S® LET U=0 
10@@ GOSUB 9Se0ea 


400 FOR N=1 TO 40 
41@ YF N=1 THEN GOTO 1965 


N=e0 
7@a@ LET ZS$=INKEYS 
Se0@ IF Z$="8" THEN LET B=6+1 
9@@ IF Z$="S" THEN LET B=8-1 
95@ IF RND>.4 THEN LET M=1 
4@@@ IF Z2$<>?"1" THEN GOTO 1055 
191@ FOR A=19 TO 5S _ STEP -2 
1@e20@ IF Mea GOTO 1056 


1027 IF AS(Q) =" “ THEN GOTO 1856 
1@3@ FOR E=3_7T0O 19 STEP 4 
18486 PRINT AT E.@: mye SAT £8." 


oo IF INKEY#="S" THEN CET 6=56- 
oo IF INKEYS$="8" THEN LET B=6+ 
1@47 PRINT AT 20,58-1;"“ - 


1@S@ NEXT E€ 

10S2 IF B8=0 THEN LET C=C+1 

1@S3 IF B=0@ THEN GOSUB 50608 

1055 IF M=1 THEN GOTO i022 

1Q@56 LET AS=AS(2 TO } 4AS(13 

1057 IF 2%<>"1" THEN GOTO 1065 
1060 PRINT AT A.B+ALS "2" AT ALB+t1 


1065 PRINT AT 2.2; AG: AT 4,0; AG:—A 
6 .AT 28. B; N 
1067 Seer °s 2"4" THEN GOTO 2509 


a7 IF AS(B413 <>" “ THEN LET S= 
+ 

1080 PRINT AT 4,8; “2#"; AT @.8; "YG 
ue"; S*#64i 


15 


16 


20@0@ LET AS(B+1)=" “ 
2500 NEXT N 

252@ PRINT AT @,16; "ME “;C#é239 
30@@@ PRINT AT 10, 10; “END’ OF ROUN 


3@@S LET S=INT (S5~-C+2) 

3010 IF S>U THEN LET U=S 

302@ PRINT “YOUR HIGHEST TALLY: 
“,Uzs641 

3Q@8@ FOR N=1 TO 6@ 

3090 NEXT N 


mole FOR J=1 TO 3 


S@1i@ PRINT AT 16,10; “SRR; AT x8 

ea. “BOON; Ar 10,10; 

3$a20 PRINT AT 20,04 1B: ar 28.8 

+1; "EX; AT 20,031; “X"Z; AT 2a, @e4a;" 

M°"S AT 28,041; "EB" 

5ea5@ NExT J be 

e6e PRINT AT @.0; "EW “; 52641, 
ae 4 

519@ R 


901@ LET 2 
3050 LET AS="B BS Bs B 
9070 LET 8=15 


18TH HOLE 


In this 1K game you see a ball and a hole. You enter the 
strength of the shot you think will hole the ball (1 to 100). 
The ball will then move and, if you've been accurate, you 
will actually see it drop into the hole. You might like to adda 
“score card” feature if you have more memory. 


€RND#15} 





“48 PRI AT 9,7; "STROKE?" 
PUT A 


S2 PRINT AT Q.7:° se 
SS PRINT AT 17, av ot 

6@ LET J=J+INT (Ay (6+RND)) 
7@ GOSUB 2ea 


S@ LET S=Sti 

8S PRINT AT 5,12; “COUNT “5 
9@ IF J<27 THEN GoTO 4a 

19@ IF J>27 THEN GOTO 1528 

rooted PRINT AT 17.27; “LAT 186,27 


"410 pore. “YOU SCORED “;5." ON 


12e GOTO 1i6@ 
145@ PRINT "HOPELESS, YOU OVERSH 


16@ FOR G=1 TO 188 
17@ NEXT G 
16@ CLS 


RUN ¢ 
2@@ PRINT AT 17.5; "0" 
210 RETURN 





CHECKERS/DRAUGHTS 


This checkers program, adapted for a 16K ZX81 by Tim 
Hartnell from a 1K ZX80 program written by G. D. Charlton, 
of Romford, plays fairly well at the beginning, but falls away 
towards the end of the game. You may like to ‘‘teach’”’ it to 
play a little better. You move by entering the numbers 
which flank the square you’re moving from (such as 53, in 
which the 5 is along the right hand edge of the board, and 
the 3 is along the top), then NEWLINE, then the square 
you’re moving to. The computer will then decide on its 
move (in the FAST mode). The ZX81 goes back into SLOW 
to reprint the board, changing both moves as it does so. 


After each move you'll be asked if you can move again. If 
not, just press NEWLINE and the ZX81 will move. If you 
can, press any key before pressing NEWLINE and you'll be 
able to move again. The ZX81 makes multiple jumps 


automatically. 
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eet AA eee 
ides! 


ite: 


ee REM Boa56789 
: Bess tceee 


G0suB 50eae 
GOTO 430 


LET R=PEEK 8B 

LET S=PEEK (68+D1X)) 
LET T=PEEK (8422D(x}} 
8 URN 


FOR X=1 T 


uB 29a 
IF (€¢(*%<3 AND R=61) OR R=135) 
pi OR S=12) AND T=08 THEN 


3 
NE x 
NE 6 
FOR A=1 TO 408 
LET B=INT (RNDO#6@O@) +16528 
FOR X=1 Ta 4 : 
GOSUB 2@a@ 
IF ¢(tX<3 AND R=61) OR R=13) 
S=@ THEN GOTO 408 
NEXT 
NEXT 
PRINT “YOU WIN"; OW, 
SLOW 
PRINT AT @. a; “FROM?” 
INPUT G 
PRINT AT @.4;5" "36," TO?" 
INPUT H 
PRINT AT Ss 


@. a; 
POKE 165164H. PEEK (G4165162 
IF H<20@ THEN POKE H+16516.1 


POKE 16516+C. 

IF ABS tH) 215 OR ABS (H-G 
THEN POKE 16516? (H+G6) 2,8 
foe AT 17,0; “CRN YOU fave 
INPUT AS 

PRINT AT 17,835" 


IF AG<¢>"" THEN GOTO 430 
FAST 


Oo 6@ 
POKE 6+224D(X),R 
POKE &,.@ 
POKE B+D (xX), @ 
LET &= B+2sD (x) 
IF 6216597 THEN GOTae 498 


358 FOR X=1 TQ 4 
368 GOSUB 22 
3B?7?@ IF ((*<3 AND R261) QAR R=1i3) 
AND (S252 OR S=12) AND T=8 THEN 
GOTO 38a 
SSQOCNEXT X 
3983 GOTO 43a 
48@ POKE 6+D(x),R 
410 POKE B,0 
420 IF B+D (X) >16597 THEN POKE & 


43@ PRINT AT 6.3; ee 
44@ FAR A= 416517 Ta 166.6 

450 PRINT CHRS$ (PEEK AD; 

462 IF 1@xINT ((A+4) 71@) =A+4 TH 
EN PRINT TAB 8. 

479 Neo 

455 oF F=1 THEN GoTo s5S 


QOQ@ DIN D4) 

Sa10 LET O(1} =11 

Sa2@ LET Dte2) =9 

saeg tet Big} 5-24 

S04 =- 

Sasa FOR J=16626 TO 16725 


S260 POKE J-1@09,PEEK i 


597 NEXT J. 

5a = 

5090 REM “DRAUGHTS' ADAPTED 

T HARTNELL FROM ZXS@ PROGRAM 
BY G D CHARLTON, ROMFORD 
S198 RAND 

S20@ RETURN 


MAHOGANY 


The computer thinks of a number between one and nine (the 
top number displayed). You have to try and anticipate the 
next number it will think of, by touching that number. Your 
number will be displayed underneath the computer's 
number. Under this number is the count of how many goes 
you have had so far. The smaller this number when the game 
stops -- that is, when you successfully anticipate the ZX81’s 
number -- the better. This fits within 1K. 


S LeT &=9 
16 LET Bran CAND FOI 33 
15 LET @=u 
25 LET =cabE INKEY 
IF z=-58 THEN PR NT Sar 12, 


8 rl 2:08 AND 2<¢18@ THEN PRINT 


r ral 
49 LET O=0+079 
a6 PRIN? St EE; 
SO IF W=z THEN PRINT AT 14,8;° 


.O.A 
68 PRINT AT 14.E:0 
ere LET M=INT (RND#5)-INT (RND# 


~ Oe ta MN+U>@ AND M4U<21@ THEN LE 
9@ GOTO 2s 


BREAKOUT 


You control the action of the slide at the bottom of the 
screen with the ‘5’ and “8” keys, trying to keep the ball 
bouncing as long as possible. You have nine balls, and 
you'll get an increase in score every time you manage to 
wipe out one of the blobs near the top of the screen. The 
score is changed on the screen each time you lose a ball. 
There are five rows of blobs to knock down. A perfect score 
is 3618. At the end of the game, you'll get a percentage 
“perfection”’ rating. 


36 GosuUB seee 

3 
3@ IF PEEK (334Y+X+1+PEEK 1652 
&+2S6e2PEEK 16597) =R THEN GOSUB 7? 


QQ 
S@ PRINT AT Y.X;AS. 
6@ PRINT AT Yas 
51@ PRINT AT 2G. 
53@ IF Y=1 OR oro ia AND RS (M- 
*%1 <3) sees LET @=-90 
S40 X=2 OR X=3@ THEN LET W= 


W 

S45, pee M=H+ CINKEY #="6") -—CINKEY 
550 tf Y=20 THEN GOSUB 6006 

600@ LET Y=Y+®@ 

61@ LET X=xX+WU 

60008 GOTO 3@ 


7 eee. a ,AT Y, Ke HR GAT VK Us" 


Yo 
781e@ te yeod THEN LET @= 
7@20 LET S=5767 
7500 RETURN 
793399 STOP 
S@@@ PRINT AT 19,86," 


6002 PRINT AT 20,8; " 


B@@S LET A=A+1 

6018 PRINT AT @,7;5 

801S IF A=166 THEN GOTO 9s5ee 
8020 LET AS=CHRE (A) 

8@Q3@ LET Y=15 

8Q4@ LET X=INT (RNDs26+4) 
8ese@ LET =2 

6Q@6e@ LET ora 

S@7e@ LET W= 

6er7sS IF AND >. S THEN LET W=-1 
S288 RETUR 


9@@@ PRINT “SCORE: " 


R 
9500 PRINT AT 18,2; “YOUR RATING 
Is “; INT (5410003618) 410," PER 


CENT* 
951@ PRINT TAB 4; "OF GRAND MASTE 
R STATUS 


CONEY ISLAND 


You have to shoot at the little coney flying across the top of 
the screen. ‘’5’’ and ‘’8”’ move you left and right, and ‘’0” 
activates your anti-coney gun. You have just 10 shots, 
although you can alter line 1035 if you want more or less. 
You're rewarded with a satisfying display every time you get 
a coney. At the end of the game the score is printed over 
and over again at random positions. A score of five or more 
is very good. 
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22 





D 

S@ PRINT AT AR 
SS PRINT AT A i 
S? PRINT AT C ee 
6@ PRINT AT C. we 
Bao IF INKEYS$="0" THEN GOSUB 1@ 
w 

67 LET P=B 
‘ wou B=6-— (INKEY #="6") + CINKEY 

7S LET S=.b 

6@ LET O=0D4INT (KERND} 

9@ IF P<1 OR DO>3@ THEN LET K=- 


100 IF DO<1 THEN LET D=2 

110 IF DB>30 THEN LET D=29 

158 GOTO 5@e 

106@@ LET F=F+1 

1@@4 PRINT AT 8,25; “SHOT “jF 
i@@S FOR G=18 co. . STEP -3 

i910 PRINT AT G, tet 

i@15 PRINT AT G. e 

1620 NEXT G 

1925 PRINT AT &.25;" a 
1938 IF ABS <B) -ABS (BP) =B THEN G 
SUB 20600 

1@35 IF F=10 THEN GOTQ 3S6ea0e 
1@4@ RETURN 
2a0a LET M=N+1 
O°? ff PRINT AT 190,10. “YOUR SCORE 


2307 FOR re Ta 


2025 PRINT AT 
2@a27 PRINT AT 
2030 NEXT T 

2046 PRINT AT 16,10; " 


2@a5@ RETURN 
S600 PRINT AT @,0: “END OF GANE" 
ScORED AT RNDO#20.,.RNC£15; “You 


D M 
3020 GOTO 3016 


DALI 


This is a very simple ‘‘ETCH-A-SKETCH” program for the 
1K ZX81. You use the ‘’5’, “’8’’, ‘’6"’ and “’7”’ keys to control 
the movement of the flashing dot to draw pictures of your 
choice. 


10 LET X=15 : 

20 LET Y=INT (xX+/PT) 

3@ IF INKEY$="" THEN GOTO 3a 
78 LET YeY~ CINKEY $="S" AND Yor 


@) 
LET XX — CINKEY $="5" AND X>2 


130 GOTO 76 


PEEK-A-BOO, 
POKE-A-BOO 


The game begins with a ball in motion, and you have to 
control the ball (using the “6” and ‘’7’’ keys) to hit as many 
black squares as you can. There is a highest score feature, 
but — as the game gets harder as it progresses — it 
becomes more and more difficult to achieve higher scores 
as the game continues. When you're tired of playing this 
game according to the rules, try to MISS as many black 
squares as possible. 


3 aa vet TO 6@ 
23 ORONT AT 34+RND216,2+RND#29; 


4 
aMzAXxzZATM 
ee 


i xXPrag 
7 8 i 
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116 LET Y=16 
111 LET A=xX 
ete. ® POKE SS2#B+A+14+PEEK E?2564PE 
128° TF PEEK (334Y+4xX+1+PEEK EF+25 
6sPEEK F)=128 THEN GOSUB Sao 
aa POKE SS#Y+X+1+PEEK Es25h+PE 


121 LET T=T+3 
122 LET A=X 
123 IF T>20@ THEN GOSUB See 
124 LET B=y 
13@ LET X=X+ 

aoe IF X<2 on X>3@ THEN LET K=- 
436 LET As= eee 
137 IF AS$="""" TH LET AS=83 
138 LET Yay (Agee 7) +(AZ="6") 
439 IF Y<¢2 THEN LET AS="6" 
149 IF ont: ne LET Age=" 7" 


ies 
5@5° PRINT AT Fae’ ts eh rT SCORE I& 
“3 Ms AT te oa ne rs 


exe, cane 35 £7 4X41 4PEEK E+256#PE 
Rte Bake S3FY+X4+14+PEEK E+2562PE 


EK-E, oot S3#Y+X+14+PEEK E+2562#PE 
one NEXT 2 
LET R=117 

sas PRINT AT 30, @; "TALLY I5 ";R 
S27 FOR H=1 TO 6 

S28 POKE SSsY+X+41+PEEK E+2562PE 
EK F,189 

S29 POKE SS#Y+X+1+PEEK £4+2562#PE 
EK F,S2 

S30 NEXT H 

S35 PRINT AT 26,@;" 


540 IF T>20@ THEN ,GOSUB 1@an 
56@ PRINT AT @.@;' 


§7@ RETURN 

1@00@ IF R>u nen LET U=R 

1910 PRINT AT toe eae OVER - ¥ 
OUR TALLY - Riat 25; “BEST Sa 
FAR - au 

192@ FOR H=1 TO 23 

1922 POKE SS4Y+X+4+1+PEEK £+2562PE 
EK F,189 


1925 POKE S3#Y+X+i1+PEEK E+258PE 
EK F,52 


1930 NEXT H 
19635 LET N=0 
1040 ee T=2 
1e45 R=@ 
18590 RETURN 


HUAMBO 


There are two versions of this game listed. In the first one, 
the computer is the inverse letter ‘’C’’ trying to get all its 
pieces from the top of the board (a 5 x 5 grid) to the 
bottom, before the human (the inverse H’s) gets all his or 
her pieces to the top. In the second version, you are the 
inverse £ signs, trying to move from left to right and the 
computer is the inverse $ signs trying to move from the top 
of the screen to the bottom. There are no captures in this 
game, and pot players can move one equate in any 





direction (forward, backward, up, down, or along the 
diagonals). You move by entering the square you're moving 
from and to in one string. For example, ‘“E1D2’’ will move 
you from the E1 square to the D2 square. The best strategy 
is to try and block future moves by your opponent while at 
the same time getting as many of your men to the opposing 


side as you can. 
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1S5@ LET Bt 
16@ LET 68(6) =- 

165 GOSUB 12006 

17@ FOR A=20 TO 1 STEP -1 

17S FOR J=1 TO 5S 

1806 LET B=INT (RND#3}3 42 

1868S IF S#InT (A’5) =A AND B=3 TH 
EN GOTO 2128 

19@ IF ACTAI=C ANDO ACA+B(B)) =8 T 
HEN ect 278 


22@ FOR aes 7 2e 


230 FOR B= & 
235 IF SStINT (A/S) =A AND B=4 


HEN GOTO 258 
: A {AY =c AND ATATK IB) =a 


240 IF 
HEN GOTO 27 
25a Reser a A 

26a 

265 PR RINT. ak CONCESE 7 

278 LET ATAIB(B))= 

280 LET ATA) =8 

299 GOSUB _10e8 

308 Sar eee 

1 

3 LET O=S5*# (CODE AS-35) +CQDE A 
§ (2) -28 

33@ LET E=Se# (CODE AS(3)} -363 +COD 
E ca cern 

340 LET ATE) =H 

350 LET ACD) =6 


Tr 


1@1@ LET Y=0 
1912 PRINT AT 20,0; “Si 


ROIS LET Z=RND£*¢RND 
1815 PRINT AT 20.9; "------------ 


1@20 PRINT AT 5.@:"1 23 4 5" 
1825 PRINT 
18630 FOR A=1 TO 25 





10490 
18508 


PRINT CHR (ATA));: Ds 
IF S#INT ‘eee =A +HEN’ PRINT 


" “JS CHRE (A«St3T} 


1069 
=X+ 


1070 

Y=¥t1 
19080 
1@a90@ 
1095 


1120 


ER 


1191" 
WINNI 


1102 


a ACA} =C AND “@33B@ THEN LET 
IF ATAI =H AND ACG THEN LET 


NEXT A 

PRINT “1 23 4 5" 

PRINT 

PRINT “HUMAN “;Y;" COMPUT 


x 
IF Y>X THEN PRINT “YOU ARE 
NG" 

IF *>Y THEN PRINT “----I AM 


VINNING"™. 


21105 
@ 


1119 
11208 


198 


IF X=4 OR Y=4 THEN GOTO 112 


RETURN 
IF X>Y THEN PRINT “COMPUTER 


IF Y>X THEN PRINT "HUMAN"; 
PRINT “WINS BY "|; ABS (X-Y); 


ae 
“Ob 


www gf 
win OO 
ol 


aamananesanaDallaawil il 
Naat Nat Seat Sow So bd (Tha 


OmNVNOADDD DIIpIO 
OVPONeEMeER DONDE 


L =-6 

GOSUB 190e@0 

FOR =229 TO 1 STEP -1 

FOR =i Tro s 

LET B=INT (RND#3) +1 

IF S#INT (AS) =A AND B=3 TH 


ca 
re 


Ss 
EN GOTO 219 


IF ATA) =C AND ATA+B(B)) =a T 


HEN GOTO 270 
NEXT J 


200 
219 


NEXT A 


27 


28 


220 FOR A=?7 TO 206 
23@ FOR 6=4 TQ 6 
232 IF (A=6 OR A=11 OR A=16) AN 

Oo B=4 THEN GOTO 250 

235 IF S#*t INT (A/5)) =A AND B=4 
THEN core 250 

240 ATAI=C AND ATA+B(B)) =0 T 
HEN GoTo 270 

25@ NEXT 6 

260 NEXT A 

265 PRINT “I CONCEDE";uU 

27@ LET A(H+B (B13 =C 

28@ LET ACA) =@ 

2s@ GOSUS oS 

REN 


31a INPUT AS 

320 ooo =S*# (CODE AS-38)+CODE A 
S (2) - 

33@ LET E=S#(CODE AS (3) -38) +COD 
E AS(4) -26 

340 LET ACE) =H 


@ 
1912 PRINT AT 20.0: “iP 


1913 LET Z=RND#*RND 

1615 PRINT AT 20,0; “------------ 
1020 PRINT AT 5.0;5;"°1 23 4 5" 

1825 PRINT 

1930 FOR A=1 TO 25 

1044 IF ACA} =@ THEN PRINT "BB"; 
COCR e ACAD <>@ THEN PRINT CHARS 

2 

1@5@ IF 5INT (A753 =A THEN PRINT 
“ “J CHR (AL5S+373... 

+oee a A(f}=C AND’ A>20 THEN LET 

=H + 

18978 IF _ ATA) =H AND S#INT (AVS) =A 
THEN LET Y=Y+2 

i@808 NEXT A 

1690 PRINT "1 23 4 5" 

2895 PRINT 


Bao “HUMAN “iY; " COMPUT 
@1 IF Y>xX THEN PRINT “YOU ARE 

INNING” 

11@2 IF X2Y THEN PRINT “----I AK 

WINNING” 


seo IF X=S OR Y=3 THEN GOTO 132 


1118 RETURN 
112@ IF X>¥ THEN PRINT “COMPUTER 


123@ IF Y>x THEN PRINT "HUMAN"; 
114@ PRINT “WINS BY “ABS (X-Y3; 
* "POINTS" 
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HAPPY CHAPPY 


HAPPY CHAPPY is a large face which bounces across the 
screen, an idiotic smile on his face. Hit any key as he passes 
over the marker in the middle of the screen, and the HAPPY 
CHAPPY stops, his smile changed to a scowl. You get to take 
10 pot shots at 10 HAPPY CHAPPIES. This 1K game fits new 
ROM ZX80’s and ZX81's. Run it in FAST. 


19 OIM AK(S 
ET 


Oo 12 
30 PRINT AT S25... 
13 ee ee 

TQ 2 

@.N 


14@ PRINT TAB N; 
15@ PRINT TAG NA 
17@ PAUSE 20 

18@ IF INKEYS$<>"" AND N=11 THEN 


GOTO 3508e 

19@ NEXT N 

280 CLS 

210 NEXT F 

228 CLS 

280 eran “YOU GOT ";5 
299 STO 


596 PRINT AT 2,N; ARCS) 
510 LET S=S+1 


568 GOTO 218 


This game, based on one which was featured in the film 
“Last Year at Marienbad”’ fits a 1K machine. There are 
between 15 and 23 objects on the screen at the start of the 
game, and you and the computer take it in turns to take one, 


two or three of these away. The player who removes the last 
one loses. 


23@ LET M=@ 

tt CET Faas INT (RND#12 

38 L + 

48 IF 2@*INT (272) =2 THEN GoTn 


S@ LET H=3 
6@ IF E>@ THEN PRINT AT 7 285 °Y 
OW TOOK "SCHRS (&+1560),"1 ToaK 
ioean (9+156) 
65 PRINT 


7@ FOR K=1 TO 2 

8@ PRINT K;"° ™"; 

9@ IF RND>.6 THEN PRINT 

198 NEXT K 

igo LET 2=2-£ 

13@ IF 2Z=08 * THEN PRINT ,"I WIN"; 


150 LET @O=Z-1-INT ((Z-1) 4 CH4+1)) 
* (H41}3 +INT_ (RND#4) 
160 IF 9>Z2 OR O<1 OR O23 THEN & 


168 TF z= o THEN PRINT , "YOU WON 
CLS 
210 GOTO 6@ 
BUGBITE 


You and the ZX81/new ROM ZX80, take it in turns to roll a 
four-sided die to build up a picture of a BUGBITE. The 1K 
computer does all the work (and often wins). The ZX81's 
BUGBITE is on the right, yoursis on the left. Aone gets youa 
head, two and three get you legs, and four gets you the body. 
You need to roll the numbers in the right order (i.e. one first, 
then two and so on) to complete your BUGBITE. 


» 
9 
r 
4 
D 


| yyxQe 


2e@ LET BS= =* 

3@ LET Cea" ar 

4@ LET O$=" ae 

Sse t Eg=" “ 

6@ DIM Mt) 

6S LET Fg=" YOati — 
F7@ FOR H=2 Fa 3 

3@ LET O=INT (RND#4) 41 


31 


32 


932 ace a AT o @, FStNES TO N#3+ 


1808 PAUSE 1938 
Tia IF O-PI’VPI=MN(N} THEN LET MC 


122 IF MGN) <PI THEN GOTO 158 
13Q@ PRINT AT 3.N22PI; 

14@ PRINT TAB Ne2PI;Cs 

45@ IF MIN} <3 THEN Goro 17@ 

46@ PRINT RAT 2,N22PI; 

3708 IF M(N) +2 THEN aor 19@ 

18@ PRINT AT S.N#2PIi AS 

439@ IF M(N) =PI-PI THEN GOTO 220 
290 PRINT AT PI.N##PI+4;D§ 

210 PRINT TAB NssPI+4;E% 

220 IF M(N) >PI THEN PRINT FS(N# 
3 FTO N4332)35,° WON." SZ 

238 NEXT N 

24@ GOTA 72 


MOON BASE 


In this lunar lander game (which needs more than 1K), you 
have to try and land your little craft on the base at the end of 
the line of upright posts on the moon’s surface. You have 


0B 8 Pewee 
pers ieee ceums eee 2 


TTME: HEIGHT: 1074 
THRUST? 12 DRIFT? -6 





two inputs: THRUST which controls your descent; and 
DRIFT which controls your lateral movement. The game 
ends if (a) you crash land; you'll be awarded a rating). The 
printout shows a sample game in action. 


1 GOTO 
e@ IF H<«<S@ 

AND ABS (Z2-M) <5 THEN GQOTO 3? 

Ir aa THEN GOTO 40 


42 
S@ AND VU<2@ AND V>-15 
3 1 
4 
S CET A=A+? 
6 CET T=T+4+4+inT (RAND #2413 
7 LEFT U=U482#243-12-22RND 
LET H=H+V-20+16RND 
LET F=F-(ABS (AI +ABS (ByS) + 
G#RND) 
1a GOSUB 2 
112 IF H<¢<20@ OR F¢S THEN GOTO 35 
12 LET oe acs 
13 LET 2=2+8/2+2—-RND#3S 
16 PRINT AT W.X; 
17 PRINT AT 16-U.7+1:° ™%" 
18 LET W=16-1L! 
os ee X=Z+1 
OF 2e ee. BSEEURERITE 


INT 
mnkiad bBo To Meads” a 


INT AT 17, @3 “VEL: ; ANT _YV 

3 “2 FUEL: " INT F; “, “TIME: 

“3 INT Ta * “HEIGHT: “: INT H.* 

29 PRINT “THRUST? “: 

3@ INPUT A 

31 PRINT A;" “,"ORIFT? “; 

32 INPUT 8B 

33 PRINT 6B 

34 GOTO S 

35 PRINT ote »,ABS VU 





- a8 eee 


36° GOTO 35 
38 PRINT “SUCCESSFUL LANDINGRR 
ATING “;1@@%(3@-INT ABS VI4INT U 


39° GOTO ae 
PRINT “YOU HAVE REACHED ESC 


APE. eUELOGITY™ 
Ga 


TO 4@ 
a3 LET H=145@e 
43 LET F=827+45@*#RND 
44 LET T=0 
45 LET Z=15#RND 
46 LET A=1 
47 LET B=08 
43 LET M=1924RND 
49 LET V=0 
S@ LET UW=e@ 
Sib new 


34 


SHOWOFF 


Run this great little program the first time you want to 
impress your friends with your new ROM ZX80 or ZX81. 
Delete the PAUSE lines, except for 180, if running it in 
SLOW. This needs 1K. 


1@ LET AS®="HELLO I AM A COMPUT 


2@ GOSUB 5ee 
30 LET AS="YOU CAN CALL ME ZED 


4@ GOSUB 50@ 
S@ LET As*="I CAN BO SUMNS....” 


6@ GOSUB Ses 
78 LET AS="TYPE IN 1 AND I WIL 


IT 
€6@ GOSUB Sao 
890 INPUT AS 
s vo nS AG="THE ANSWER IS "+5TR 


Ag 
11@ oes 5ee@ 
120 LET AS="ILtL HAVE TO GO NOW. 


130 GOSUB 5ae 
15@ PRINT AT 9. gai, Zo em ” 
170 PRINT T TAB 133° i 


$10 FOR N=1 TO LEN A$ 
S2@ PRINT AT 1@.N; AS TN): 
S386 PAUSE 29 

5490 NEXT N 

S509 PAUSE 598 

560 RETURN 


MUSIC 


The music produced by this routine is pretty horrible but 
gives you an outline to follow. The original idea came from 
L. D. Tanner of Waddon, Croydon, a member of the 
National ZX80 and ZX81 Users’ Club. Put a transistor radio 
near your computer to hear the ‘‘music’’. You may be able 


to hear it through your TV if you turn the sound up, but you 
may have to tune it slightly away from the ‘‘best picture”’ 
position to hear the music clearly. 





1 LET K = 100 
2 FOR G = 1 70 2 
3 FOR A=1T0K 
4 GOsUB 30 

5 NEXT A 

6 FOR A = 170 K 
7 GOsuB 30 

8 NEXT A 

9 FOR A = 170 K 
10 ler J=I+1 
11. GOoSsuB 30 

12 NEAT A 

13. PAUSE 5 

14 FOR S = 1 7T0 3 
15 FOR A =1 10 17 
16 GOSUB 30 

17. «NEXT A 

18 NEXT S 

19 NEXT G 

20 = PAUSE 5 

21 FOR A = 1 70 SO 
22 GOSUB 30 

23. NEXT A 

24 FOR A = 170 K 
25  GOSUB 30 

26 LETIEFI+1 
27 NEXT A 

28 PAUSE 10 

29. ~=RUN 

30 stou 

31. FAST 

32 LET IJ=P 

33. RETURN 


MENACE 


Menacing aliens chug-a-lug up the screen towards you (an 
inverse V). You move right and left with the ‘’5’’ and ‘’8”’ 
keys, and the game continues until an alien hits you. This 
must be run in FAST. It takes just 1K. 

LET P=16 

LET S=0 


PRINT AT O.P; "BR" 
PAUSE 15. 


PUN 


35 


36 


S SCRGLL 

o 2 PRINT AT 26. RNDe2e: “Sie 5 AT 
“7 IF PEEK (P+16745)>@ THEN GO 

TO 22 

puck P=P+ (INKEY $="6") - CINKEY 
9L 


12 PRINT S 


MAGIC SQUARE 


The computer (a ZX81 or new ROM ZX80 with more than 
1K) generates a magic square, in which the numbers 
horizontally, diagonally and vertically add up to the same 
total. A zero will be printed in three of the squares, and you 
have to work out which numbers should take their places. 
Enter any guess, and the computer will check each of the 
zero places to see if this number should take its place. The 
computer automatically knows when you have completed 
the magic square, and terminates the game. 


S OIM ACQ) 
1@ DIM B(9) 


Qa 
28 LET A=INT (RNO#9) +1 


3Q@ LET B=INT (RND*91 41 
48 LET C=INY (RND#9)3 41 
S@ IF A=B GR A=68 GR A=C OR B=C 
THEN GOTO 38 
6@ LET 


ATL? sA+B 
7O LET A(2? =A- (B+C} 
8S@ LET ACB) =A+C 
98 LET AT4) =A-BtC 
28@@ LET ARS) = 
Ai@ LET AIS) =A+68-C 
120 CET ACF} =A-£ 
238 LET A(3) =A+B+C 
248 LET AS) =A-B 
18@ FOR Z=1 TQ @Q2 
160 LEFF 6t2} =A CZ) 
17@Q@ NEXT Z 
338 LET K=RBS A 
190 LET 6B(K} =4 
2e@ LET K=ABS B 
21@ LET BIK) =@ 


LET K =ABS C 

LET B(K)= @ 

LET Jawad 

PRINT AT 0,0; “GUESS NO. “;u 
PRINT 


6 THEN PRINT 

6 THEN PRINT 

IF M=9 THEN PRINT “YOU HAVE 
IF H=9 THEN PRINT “" 


PRINT 
PRINT “yYOU HAVE “; M7" RIGHT 


INPUT WU 


9 
IF W=-39 THEN GOTO 32e@ 
IF AZ) =U THEN LET Bitz) =v 
IF 8&2) <s>@ THEN LET M=M#1 
NEXT Z 
GOTO 235 





TWENTY-ONE 


You and the 1K ZX81 take it in turns to roll a die, trying to get 
a total as close as possible to, but not exceeding, 21. If you 
have more memory, add a facility for multiple games, with 
an accumulating score. 


18 
2a 


LET H=6 
LET C=@ 
PRINT “1 TO ROLL. 2 TO STAN 


INPUT A 
IF A=2 THEN GOTO 9a 
LET H=H+INT (RNDF6) +1 


GOSUB 258 
Gord a8. 4,7; “ER CGH 


If CoH AND C<2@e2 OR C321 AR 
OR H=21 AND C=21 THEN GOTO 


LET = fea (RND #6) 41 
artes 8.8: "ER “sic 


IF H=C OR H>@2@1 AND C)21 THE 


217@ 
N GOTO 248 


IF (C>H ,OR H>22) AND Cc22 T 


18e@ 
a PRINT 


@ 
HEN PRINT 
208 


IF (ocH DF C>o21) AND Hiaa T 


PRINT " 
GOSUB 268 
GOSUB 260 
cLS 





“OR 
FOR E=1 TO 68 
NEXT E 
RETURN 


TOWER 


Pick yourself a tower, 1, 2 or 3, then stand back and let the 
ZX81 build them for you, and see if yours is finished first. 


38 


The routine in lines 120/130 seeks to increase the 
randomness of the random number generator. 


10 LET D = 30 
20 LET A=S5 
30 LET BHA 
40 LET CHA 


50 PLOT 10,A 

60 PLOT 30,8 

70 PLOT 50,C 

80 LET A = A + RND 

90 LET B = 8B + RND 

100 LET C = C + RND 

110 IF(A>O0 OR BY D OR C>V) THEN GOTO 140 

120 LET X = INT(RND*6) +1 

130 GOTO SO*(X <4) + 60*(X> 3 AND AC6) + 
70*(X = 6) 

140) PRINT (A>B AND A>C) + 2*(B>A + ODL) 
+ 3*(C>A ANU C>B)3" WINS" 


HANGPERSON 


This is HANGMAN in reverse. You think of a word, and the 
computer tries to guess it. When you RUN this program, 
the computer will first ask you how many letters there are in 
the word. 


The ZX81 will then think of a letter. If this letter is in your 
word, type the numberof the letter in the word. That is, if 
your word is APPLE and the computer guesses E, respond 
by typing 5. If the letter is wrong, input @. After a correct 
letter, the computer will leave it there until you type, to 
allow for double letters. So, if it thought of P, you’d respond 
with 2, then NEWLINE, then 3, then NEWLINE, then @. This 
game is great fun to play, and you'll find the long-suffering 
ZX81 has a much better chance of guessing your word 
within its 10 goes if you think of a long word. 


41@ REM ETAONRISHDLFCMUGYPUBLUKD 
2@ LET L= 


1@ 
PRINT “LENGTH OF YORD?" 
48 INPUT N 


39 


40 


BQ CLS 
5@ DIM #126) 

99 DEM SiN} 

28@ DIM GUN. 

11@ FOR Z=1 Ta 26 

12G LET _AlZ) =PEEK (1651922) 
130 ITF Z<N+i THEN LET GZ) =4 
140 NEXT _Z 

45@ LET Z=INT (RND#3) +44 


460 LET AG=CHRS ATZ) 
27@ FOR J=zZ TQ 25 
180 LET ACI} =ATS+L) 


24¢@ PRINT CHR Gif}; 
i NEXT 2 


26@ PRINT 

270 PRINT 

2B@ PRINT TAS 8; "LIVES: “jii" ” 
TAB 190;"I GUESS “j; AS 

3@@ INPUT 6 

318 IF 6=@ THEN GOTO 35@ 

329 LET A=1 

330 LET G(B8} =CODE AS 

349 GOTO 210 


350 LET F=90 

369 FOR Z=2: TO_N 

378 IF GitzZ)}=4 THEN LET F=1 

380 NEXT 2 
ion ar F=8@ THEN PRINT TAB 8;"T 
WIN: 

41@ IF A=@ THEN LET L=L-1 


420 IF L>@ THEN GOTO 150 
438 ERINT TAB 8; "YQU WIN" 


AVOID 


In this 1K ZX81 game, a grey blob moves back and forth 
under your control. The key marked ‘’1’’ moves you left, 
and ‘’0’’ moves you right. The aim is to avoid the moving 
black squares. If you hit one, the black square turns into 
your score. Any score over 95 is good. 


5 LET K =@ 

10 POKE 16418,8 (this Line changes the line 
from which SCROLL operates) 

20 LETA=5 

30 LETB=A 

40 SCROLL 

50 PRINT AT A,B;"graphic H" 

60 LETCH=aA 


70 LET O=B 

75 IF INKEYS = "" THEN GOTO 90 

BO «€6LETB =B - ee? 1 AND INKEYS = "4") + 

8<19 AND INKEYS = "g") 

90 = PRINT AT C,U;"single space" 

100 PRINT AT 8,INT(RND*20)3"inverse space" 

110 LET K =K +1 

120 PRINT AT 6,03 

130 IF PEEK(PEEK 16398 + 256*PEEK 16399)<> 128 
THEN GOTO 40 

140 PRINT K 





BOMBER 


A tiny plane flies overhead. You press any key to fire at the 
target (a graphic H). The line across the top of the screen 
gets shorter and shorter, and you can keep playing until the 
line vanishes. You get a satisfying BOOM if you hit the 
target. This game is 1K for ZX81. 


1@ LET T=16 
ET S= 


8 
PRINT RY 2.N-45 5 See"G AT 8,7 


7@ LET B=68 OR INKEYS$<¢>"" 


ai 


8@ IF 8 THEN GOTQ 200 
9@ LET T=T+INF (RND#£3) -1 
10@ LET F=F-1i 
11@ UNPLOT F.43 
12@ IF NOT F THEN STOP 
138 NEXT N 
14@ PRINT ATF 24.3@;" "F 
158 coTo 4a 
2@90 PRINT AT D.N” “ 
aoe Ber D=P41 
28 Bu 8& AND N=T THEN PRINT T 
AB Ni "B00 


23@ IF De "THEN GOTO 3e 
240 LET B=0 

250 LET D=1 

2690 GOTO 9a 


RALLY 


In this 1K ZX81 game, you are an inverse V, trying to 
negotiate a very difficult track, strewn with obstacles. The 
score clocks up beside the track throughout the game. The 
higher this score becomes, the better. 


Anything over 183 is a great score. Run it in FAST ona 
2X81, and use the ‘’5’’ and “’8” to control your car. 





1@ LET P=16779 
28 LET S=8 


T BS=" s 
S@ LET BS (RNDs7+2) = af 
55 BRINT HE ,AT oO. 1a 
62 PRI 

7@ IF PEEK P<3@ HEN” STOP 

BQ POKE P.187 

30 PAUSE 20) 

100 LET S=S+ fs 
11@ LET Pap? CINKEY &= “82 — CINKEY 


s= 
128 GOTO 3@ 


42 


LIFE 


The game simulates the birth, growth and death of a cell 
colony, producing fascinating effects as it does so. The 
cells live on a grid (in these versions it is a 10 x 10 grid) and 
are born, live or die according to Conways rules: 


.Each cell on the grid has eight neighbours 


.Every cell with two or three neighbours survives to 
the next generation 


.If there are three, and only three, neighbouring 
cells, a new cell is born 


Any cell with four or more neighbours dies from 
overpopulation 


1@ OIM AC1E.1@} 
2@ DIM B6(10,1@) 
38 FOR X=2 TQ Q 
4@ FOR Y=2 TO 9 
S@ IF RND:>.35 THEN LET AIX,YWI = 


6@ CET BCX, FI =ACX.Y} 

7@ NEXT ¥ 

S@ NEXT xX 

9@ GOSUB 1%8fa 

95 LET G=Gt1i 

10@@ FOR X=2 TO Q 

11@ FOR Y=2 TO 9 

ET c=@ 

13@ IF At(X-1,¥Y¥-1) =1 THEN LET C= 
oe IF ACK-1,Y)=1 THEN LET C=C+ 
15@ IF AC(X-1,Y+41) =1 THEN LET Ce 
160 IF A(X,Y-1) 21 THEN LET C=C+ 


1 
17@ IF ACX,Y¥4+1) 21 THEN LET C=C+ 


43 


GOT 


FOR 
FOR 
LET 


1026 
+4 ,Y+190; 


AC(X4+1,Y-1) =1 THEN LET f= 
ACX41,Y3=1 THEN LET C=C 


ACX41,.Y¥+1) =1 


A(X,Y) =1 AND 
Y? =@ 
A(X,Y} =@ AND 


LET &8(¢(x, 


xX=1 TQ 10 
Y=1 TO 198 
A(xX,Y) =B tx 


THEN LET C= 
C<co3 AND C¢ 
C=3 THEN LE 


PRINT Par 3,9; “EIGENERAT IONE" 


IF at Vial THEN: PRINT AT &X 


1@3@ IF A(X, YY =@ THEN PRINT AT X 


+4,Y+10 


104@ NEST aA 
1@5@ NEXT X 
1060 RETURN 


MGENERAT IONE 


Oo QO 000 
0000 000 


BGENERAT IONS 


00 
Q 
00 00 
0 
000 
o 0 


o good 


Q 


o 


Q 
oO 
00 
Qo 
Oo 
a 


BGENERAT IONBS 


Oo 
Go Oa 00 
a00 
00 
Oo 6a 000 
o0 
0 


og 
ooo) 


oo a 


BGENERAT IONS 


QO 
o00cnng 
QO OO00 

00 
oo 


oo000o 


00 
000 
BEGENERAT LONE 


000 


ooco0o 
Gog 


o 0 
o00 


0000 


MIGENERAT IONS 


a 
0 00 
oO oO 20 
oo 0600 
oo a OQ 
Q 


oo a 
oo 


45 


BGENERAT IONH13 


oO 
000 
00000 

0 


MGENERAT IONSi4 


ooo 
0 a 
oO 6 
00 
00 
8 a 


noe LIFE 


19 


DIM A11@.16) 
DIM 8(1@,16) 
FOR xX=2 70 9 
FOR Y=2 TQ 


a 
IF RNDO>.45 THEN LET A(X,Y1I= 
=HAiX.¥) 


uw 


LET Bix. ¥} 
NEXT ¥ 
NEXT xX 
eoeee 18688 


Ler G=Gt+1 


FOR 
FOR 
LET 
IF 
IF 
IF 
IF 


IF 


xX=2 TO 9 

Y=2 TO gS 

c=8 

A(x-2,Y-1) =1 THEN LET C= 
Rt(X-21,.Y) =1 THEN LET C=C+ 
RACX-1,Y+2) =1 THEN LET C= 
A(X,Y¥-1) =21 THEN LET C=C+#+ 


At(xX,Y¥+1) =1 THEN LET C=C 


16@ IF ACK4#1,Y¥-1) =1 THEN LET ¢C= 
oe IF ACK4+1,Y) =1 THEN LET C=C+ 
200 IF ACX+1,Y+1} =1 THEN LET 
210 IF AC(X.Y) =1 AND Ci>S AND 


>2 THEN LET B(x,.Y) =8 


22@ IF At(X,Y)} =@ AND C=3 


250 GOTO 3&e 


THEN 


aren PRINT AT 3.4; "GENERATION 


1901 FOR X=1 TO 18 
1@@2 FOR Y=1 TO 16 
19@3 SLOW 

1015S LET ACX,Y) =Bt(xX,Y) 
ae eL at ee pY)sl THEN 
+ = te 

1825 if A(X, YI =1 THEN 
4-X,12-Y; "0" 

1936 IF ATX, Y) =@ THEN 
+4 ,Y+10; 

1035 IF AC(X,Y) =8 THEN 
4- xX, 12-Y 2 

1@46 NEXT Y 

1@S0@ NEXT xX 

1@aS55 COPY 

196@ RETURN 


GENERATION © 


oo 0 
Oo 860 oo 
o 00000 0a 
oo o oa oo 0 
ooo 0 Oo ooo 


Oo oO a0 
GENERATION 1 
00a a 

2 G o00 


Go 
oo GQ  aao 
o. 60a a 
ooa) G 0a 
ooo 0 QO 
o ooo 


PRINT 
PRINT 
PRINT 
PRINT 


AT 
AT 
AT 
AT 


c= 
Cer 


LE 


bb xh xX 


4] 


GENERATION 2 


00 
o0 Oo 
oa a 000 0 
oa o.U°f 
Qo00 0 a0 0 0a0 
Oo. O06 oo 
Qo 000 O O00 
0 Qo 0 
oo 


GENERATION 13 


bahea oco000 
ooo o oo0000o 


Qo ac 
oo OO 
o 00 


o 
00000 2 000 
oo00000 Des 


4-IN-A-ROW 


As you can see from the screen printout, this game is played 
ona 10 x 10 board. You and another human take it in turns 
to indicate which row (A to J) you want to use. A piece 
appears, an X or an O, at the lowest vacant slot in that row. 
The aim is to get four in a row, in any direction. In the 
sample game, X has just won, with a diagonal row starting 
from C and going up to F. This program needs more than 
K.. 





PLAYER 12 
BCDEFGHIJ 


x 
xo 
XOXXXO 
OKXDVOXXOX 
SCDEFGHIUJ 


10 ox A1e8) 


) 
33 =8 THEN PRI 


B 
12@ PRINT ATG 16. CR oC oee Soe 
130 PRINT AT .S 6; "P LAYER “; 

14@ INPUT 2Z$% 

145 IF Z§="5" -aeu STOP 

15@ LET M=COOE ? 

16@ FOR B=M TO M+90 STEF* 18 
278 IF R(B) =@ THEN NEXT B 

18@ LET ACB-10) =C 

19@ NEXT J 

2008 GOTO 2e 


SANDOWN 


This is arace between three numbers, 1, 2, and3. Line 130is 
based on the fact that the ZX81 evaluates TRUE as 1 and 
FALSE as @. 


5 LET 
10, LET 
20 ~=«LET 
30 =OLET 
40 =sLET 150 

50 PRINT AT 2,A3'1" 
60 PRINT AT 4,8;"2" 
70 PRINT AT 6,C3;"3" 
74 GosuB K 


30 


“uu au 
> 


AoOore 


78 PRINT AT 2,A;"space" 

80 LET A = A + RND 

82 GOSUB K 

as PRINT AT 4,8;"space" 

90 LET B = B + RND 

100 PRINT AT 6,C3"space" 

105 LETC = C + RND 

110 GOSUB K 

120 GOTO SO 

130 PRINT (A> C AND ADB) + 2*(BY 
+ 3*(C YA AND C > A);" She AM EE 

140 sToOP 


150 IF (A>DO OR BYU OR CY DV) THEN GOTO 
160 RETURN ! io 


DEMON 


This program, which needs a ZX81 with at least 4K, is based 
partly on pawn moves in chess, and partly on draughts. 


DEMON is played on a six by six grid of dots. You have six 
men each at the start of the game. You are the X's and the 
ZX81 is the 0's. 


You move in a diagonal direction only (as in draughts), but 
you can move forwards or backwards. You capture an 


Z£xXS1 @ HUMAN 
» X . X . XA 

KX . X « X. BG 

e s s a s s Cc 

. a s s 0 e o 

e O . O.. EC 
G.GQGQ.eG. F 

12345 6 

YOUR MOVE’? 


opponent's piece by landing on top of it. The first player to 
capture four of the opponent's pieces wins. 


The ZX81 always has first move. You move by entering the 
square LETTER and NUMBER of the piece you want to 


move, then the letter and number of the square you're 
moving to, and THEN press NEWLINE. That is, you enter 
the ‘square from” and the ‘‘square to’’ before you press 


NEWLINE. 


You'll see that the board is stored in the first REM 
statement, and the computer makes decisions by PEEKing 
into this REM statement. Lines 21 to 23 rePOKE the board 
into the first REM statement at the start of each new game. 
This game can be adapted fairly easily for the ZX80, but 
you'll have to add a few INPUT AS$s and CLS to control the 


display. 


& 
AN "3S 
PRINT 


6 

<2? 
71 

73 


7 
o 
a 
ss 
He 3 

7 bs (Je 

1 Me 


FONE ROHS 


aman tl i 
et ee ed et ee 


SLOU 


GOTO 338 
PRINT AT 5.@:; “2X82 “JN, "HUM 


FOR C=1 TO 36 
PRINT CHRS$ PEEK (23C 
IF 6x#tINT (C763) =C SHEN par 


NT aa (C/64+37) 
xT Cc 


N 

PRINT “1 23 4 S 6” 
FOR H=1 TO 38 

NEXT H 

RETURN 

Seats 6e 


SLO 
PRINT “YOUR MOVE?" 


51 


52 


132 7BeUr AS 

136 LET D=62 (CODE Af) -38) sCOop 
Ee (Ag iah)~2 26 

La ET E&=62# (CODE AS (3) -38) +CO0D 
E (Ae ia) ) —28 

1 IF PEEK (E4+42)=S2 THEN LET S 


25S POKE (D+2Z) ,27 
160 POKE CE&+#2),61 
17@ eQeee 68 


18@ TF raw THEN GOTO 416 

198 LET K=0 

25@ FOR F=1 TO 36 

oo FOR M=2 TO #4 

7@Q IF PEEK (F+Z3)=5S2 AND PEEK f 

FeetB iM) ) ced THEN LET N=N+# 

275 IF PEEK (F+2Z2)}=S2 AND PEEK f 
F#Z+6(M)})} =61 THEN GOTO 4238 

290 NEXT M 


3Q@@ NEXT F 

33@ LET le 

340 LET =INT (RND#36) +1 

S342 LET Ke K+1 

343 PRINT AT @.@0:;K 

35@ IF PEEK (F+Z)<>S2 THEN GQaTO 


352 IF RND>.2 AND M¢3B THEN LET 
M=4-INT RNC 

S55 IF (tF=6 OR F=18 OR Feat AN 
DOD (M=2 OR _M=3) THEN GOTO 37f7 

3S7 IF (F=31 OR F=H=1i19 OR F=7)3 AN 
D (M=1 OR M=4) THEN GOTO 378 

360 IF PEEK (F+4+Z+B(M) 3} =27 AND P 
ao (F4+Z24+248 (0M) ) 539612 THEN GOTO @ 


370 LET M=M+1 

375 IF M<S THEN GOTO 355 
400 IF K<12808 on GOTO 3328 
41@ PRINT "“Yotut WIN 


435 POKE (F+2+6(M)).126 
UB 68 


44@ IF N=4 THEN GOTO See 
46@ POKE (F+2Z) ,27 

46S POKE (F+2Z+6(M)).52 
470 GOTO 12@e@ 

S@@6 PRINT “I WIN" 


TEAOPERATIVES & GENERAL LABOURERS 
ASSOCIATION 
f Reystrad Protectie lume Genel Labourers, 
ALL GENERAL8 DOCK LABOURERS JOIN 20NCE 
and Defend the Rights of Manhood on a Practtoul 


Plcpect MANE. 
CONTRIBUTIONS 2° WEEKLY . ENTRANCE FE 2% 
SO teen gett 


DEMONSTRATIONS AND 
SUBROUTINES 


Here are three short programs which you may like to 
incorporate into longer programs you write. 


TRIANGLES 


You enter any number from 2 to 15 and the clever 1K ZX81 
draws a triangle with that base number, counting the 
number of points within the triangle. 


19 PRINT “BASE OF TRIANGLE” 
28 ane 5 


L 
40 PRINT “GASE “";56,“TQTAL “ 
50 LET T=9 

69 LET S=9 

?78@ LET L=28 

8@ LET T=T+B 

9@ FOR N=5S TO S+B#2-2 STEP 2 
100 PRINT ae. LANG "O'S 

110 NEXT 

12@ LET pis 1 

13@ LET B6=B-1 

146 LET S=S+1 

150 IF 6>S2 THEN GOTO 6@ 

16@ PRINT AT @.22;T 


MISSILE 


When you press ‘’0’’, you'll see your missile fire towards the 
target. You should be able to build a good game around this 
routine. 


1_PRINT AT 93, , 15; “Ss STAB 16: 
"XxX"; TAB 15; ° 
2 IF TRKEY $2" e" THEN GOSUB 12 
4 GOTO 2 
@ FOR N=2 TO 21 
1 PLOT 1@+N.,N 


53 


54 


12 PLOT SS-N.N 
13 UNPLOT 6+N..N-2 
14 UNPLOT S?-N.N-2 


SOLID SINE 


This 1K ZX81/new ROM ZX80 program is a very effective 
demonstration of the graphics capability of your computer. 
It plots a “‘solid’’ sine wave. 


xX=8@ TO 6S 
LET Y=2@OxSIN_ (X/324PT) 
N GOTO 7 


FOR N=0 TO Y STEP SGN Y 
»~N+22 


~ 
7" 
9 
D 


ON OOS sry 
z 


HOW LONG HAVE | GOT? 


This program asks you a number of questions, responds to 
them with wise comments, and then tells you how long you 
will live -- based on statistics. Do not take the results too 
seriously. The words in inverse graphics are: 


180 MALE FEMALE 

220 ONE 

320 MARRIED 

590 DRINKING 

640 DO YOU SMOKE (Y OR N)? 
680 10-20CIGARETTES-A 
690 20-30CIGARETTES - B 
700 MORE THAN 30 A DAY -C 
710 APIPE OR CIGAR - D 

800 ILL 





1@ LET WH 
20 LET N 


168 INPUT 
17@ GOSUB 
18@ PRINT 

S (2) 


$202 


TAB 


LETS HAVE FA LOOK 
(G3; “LIFE ENXPELSTA 


“FIRST. WHAT IS YOUR 


TS 


WHAT YEA 


(GIVE 
-196 


"OK, “sTS$i", 


“WERE YOU BORN? 
IN THE FORM 


AR 
2800 
=_ARE YOU BES OR 
6B 

28300 

“WHICH AGE GROUP ARE 


(13 


In?" 

77oR PRINT TAB (8); “INPUT LE 
23@ PRINT “ S TQ 25 - A","“26 TO 
40 - B","“41 TO S@ - “,"°S1 TO & 
@ - D","61 TO 65 - E","66 TQ 78 
qa ee TO 75 - G"," OVER FS - 
2490 INPUT AS 

250 GOSUB 2000 

260 PRINT "“DID/sHAS YOUR FATHER 
LIVE (Db) PAST 76 (Y GR NO" 
270 INPUT &¢ 


55 


280 GOSUB 2600 

290 PRINT “BDID/sHAS YOUR MOTHER 
LIVE (OD) PAST 7@ (Y OR ND" 
300 INPUT CS 


2eeaea 
32@ PRINT "ARE You GEE ty a 


D 
340 GOSUB 2000 
35@ PRINT TAB (6); “WHERE DO you 
LIVE?" A SMALL TOWN - A 
" city - 6" 


: A 

3606 INPUT ES 

37Q@ GOSUB 2600 

S80 PRINT “HAVE YOU BEEN RICH OD 
R POOR FOR NOST OF YOUR LIFE [(yY 


UT FS 
warn IF CODE (AS) «46 THEN GOTO 4 
410 GOSUB 26006 
420 PRINT “ARE YOU OVERWEIGHT [ 
Y OR NJ?" 
430 INPUT G& 
435 PRINT 
440 IF COOCE (G8) <>62 THEN Gorn 
450 PRINT TAB (12);"A LITTLE - 
452 PRINT TAB (7); "A MODERATE 
MOUNT - B" 
See TAB (10), “SUITE A ROT 
460 INPU an 
ee 


520 PRINT “HOW MUCH EXERCISE DO 
522 PRINT TAB (8); “VERY LITTLE 
S24 PRINT TAB (3); "A MODERATE RA 

MOUNT - B" 

526 PRINT TRB 1{8);"A LOT - c" 
53@ INPUT J 

552 Brapto ea ‘GOQD -NATURED 
SS4 PRINT TAB '(7); “TENSE AND NE 

RUOUS - B" 

S56 PRINT TAB (113; "IN BETWEEN 


“S7@ INPUT: K§ 


S50 GOSUB 2008 
56S PRINT 





+ 
eres PRINT "HOW OFTEN CO YOU DRI 


612 PRINT " RARELY GOR NEVER 
612 PRINT “ OCCASIONALLY ~ £ 
613 PRINT “ REGULARLY (MODER 
ATELY — c 
role. PRINT “ REGULARLY (HEAVI 
615 PRINT " REGULARLY (VERY 
HEAVILY) - FE" 





50 aneur MS 
67@ IF CODE (N$) <>62 THEN GoaTO 


675 PRINT 
676 PRINT 
677 PRINT 
632 BINT 





2008 

748 PRINT " Do YoU WISIT A DEN 
vTIST AT” 

750 PRINT " LEAST THNICE A YEAR 
{yY GR NI? 

755 INPUT P& 

FOeQ GOSUB 290086 

7708 PRINT "DO YOU HAVE REGULAR 
Neer CHECKUPS (Y GR 


76@ INPUT as 
720 GOSUB ‘2ae0 
8@9 PRINT "ARE YOU-OFTEN SRS 


R& 

620 LET =8h*(A62G333 +52 tRsi3i 
8 ANB Basel 1so% A>1920 AND Ar1 
931) 4612#(AS1930 AND A<1941) +65 f 
AS19460 AND 7619513 +67#(A>1950 AN 
CO AC1961) +68* (A>1960) 


5] 


630 IF B=2 THEN LET L=512#(L=48) 
+56% (L=S2) -G2% (L=593 +673 (Lh =fh433 47 
1#(L=65) +742 (L=67) +754 (L =661 

835 LET £L4=1998-A 

640 LET V=CODE (A$) -37 

850 LET LisSe (V1) +52#(UeS OR Vs 
SES ehV eee tee =5} +104 (VU=6) 4321 

=7) 


66@ LET tL=tl+L1 

87Q@ LET t=L+ (Code te ey cee. 

S80 LET L=L+(CODE (C$) =62) 

S898 LET L=L+3s#(CODE (D§$i =62) 
9$0@ LET L=L4é42#(CODE (&£$3 =3653 -2e 
{CQDE (E&§) =39) 

910 LET L=L-32#(CODE [(F $1 =f. 
929 LET L=L-(CODE (H§$) =381 -3af1C 
ODE (tH®#) =39) -S# (CODE (Hg) =4@) 

3Q@ LET L=L+S32(CODE (JS) =39) +52 
{CODE (J§) =4@) 

94@ LET L=L+34(CODE (K§) =38) -2¥ 
‘CODE (K#)} =39) 

950 LET L=L+3#(CODE [L$ =A€WA) -B» 
(CODE ee eee (Lg$i=é2) 
960 LET L=L-S2 (CODE [N$1 =38) -F+ 
{CODE (NS&) =39) -1602(CODE (N§) =40) 
-2#(CODE (N§) =41)3 

965 IF L<t4@ THEN LET L=Lé@ 

970 IF P$="Y" THEN LET L=L+i1 


960 IF OS="Y" THEN LET L=121 
990 IF R&="Y°" THEN LET L=L-1 
i9@9@ CLS 
1010 FOR Z=1 TO 5 

RINT 





NT 
1@590 PRINT “YOUR PREDICTED AGE R 


T 

107@ PRINT 

1660 PRINT TAB (6);TS:". IS “se 
1090 PRINT 


1396 PRINT 
131@ PRINT 
1999 aroe 
2010 FOR Z=1 TO INT (RND#8) 


EXT 2 
204060 GOSUB 3800 
2070 RETURN 

SQQO@ LET Z=INT (RND#16) 
SQQS PRINT TAB (5S); 
301@ GOSUB 3@00+20%#2 
3815 RETURN 

30920 PRINT “I SEE” 
SG3@ RETURN 


PRINT "UH HUH" 
RETURN 

PRINT “RIGHT” 
RETU 


RN 
PRINT “OK" 
RETURN 
PRINT “FINE. "; TS 
FURN 
PRINT “THANKS, “;TS$;"“. NOW. 


RETURN 
PRINT “NOT TQGO MANY NORE TO 


RETURN 

PRINT “MMM...” 

RETURN 

PRINT “THANK YOU. “iTS. N 


RETURN 
PRINT “ALL RIGHT, NOW" 
RETURN: 


RUSSIAN ROULETTE 


A simple little program for a 1K ZX81/new ROM ZX80, in 
which you must pull the trigger 10 times (by pressing 
NEWLINE) to survive. 


Pee Q=18 
2 


S 
GOSUB 158 
F ae ee THEN GOTO 72@ 





IF RND>=.26 THEN GUTO 9@ 
PRINT AT @.0/M; "EERE 


PRINT AT 8,07; "ERANGCERORRS 





8 OTO 7@ 
9@ PRINT AT 9.0/M; “YOU HEUS BB 
nore Car, RINT AT ©.07M; “HEE GAME Sit 
138 GOTO 3e 
150 FOR T=9r/0 TO @ 
qr ee,.5 PRINT AT MN4+M,0+M; "EN". CHRS [ 
+ 


59 


17@ PRINT AT M4M, 04M); “B". 
175 NEXT T 
138 RETURN 


JUPITER LANDER 


Forget about lunar landers. This one is set above Jupiter. 
Once you've managed to land your tumbling space craft 
successfully a number of times, make things more difficult 
by reducing your starting fuel (line 330) or by changing your 
initial speed (line 349). This needs more than 1K. 


19 voce e 320 
42 LET = he eee TS 
43 PRINT AT a 


110 IF U<.S THEN PRINT 

12@ IF J>.S THEN PRINT 

269 PRINT AT 27. "Bi ule —_ 
165 PRINT ater FUEL 

467 PRINT “— “; INF H:* “> INT 
F, es ee ; INT S: ee an 

468 PRINT AT 2,5; “THRUST?” 


17S PRINT AT 26,.5;T;“ F 
180 IF F-T<1 THEN LET T=6 
19@ LET S= =S+INT (537236) 4+15-T 


S 
2108 IF H>16ee THEN GOTO 298 

2eea@ LET F=F-ABS (T 72) 

230 IF H>® THEN GOTO 20 

240 IF $210 THEN GOTO 276 

25@ PRINT eta LANDING ”“ 
;F#235; POINTS" 

2798 PRINT veRAsH LANDING, FORMI 
NG CRATER” -INT (S#RND#73 5° METRE 
S DEEP “yu 
goes PRINT ABS SS," ESCAPE VELOCTI 


¢ 
3iB GOTO see 
32@ LET H=1406+RND#100 
338 LET F=86G4+RND#75 
34Q8@ LET S=18+RNDt10 
S45 LET Yes 
346 LET @=S 
350 RETURN 


MINIVADERS 


The minivaders march from right to left. ‘5’’ and ‘’8’’ move 
your base right and left, and ‘’0”’ fires at them. This will run, 
unmodified, on a new ROM ZX80, or a 1K ZX81. 


3@ LET AS=" YU Yu YV VY Si) 
vw UU a 


4@ LET F=@ 
S@ PRINT AT L,@5RS:AT 7-P;°3" 
6@ IF F THEN GoTo 126 
7@ PAUSE 22 

2 8 IF INKEY$="@" THEN GOSUB 2S 


9@ LET P=P+2% (CINKEY $="8") -AxtT 
Meer er -c 
ee ore AS=AKIA TO 31) +A$(1) 


42@ LET Y=Y-1 

140 IF Y=t THEN oor 178 

45@ PRINT AT Y.X; 

16@ GOTO 7@ 

17@ IF AS(X) =" " PE HEN GOTO 4@ 


190 LET S=S+10 
210 IF RND>.7 THEN GOTO 270 
22e GATA 4a 





Viens! 
mon Vittel ! 
mon Sauveur'! 
que je 
t cobra: " 





GRANDE SOURCE 
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SMUGGLERS BOLD 


This is a rather daft ADVENTURE-type game which 
demands a 16K ZX81, or ZX80 with new ROM. You can 
replace the PAUSE lines with FOR/NEXT loops if you want 
it to run more smoothly on a ZX81. 


You are exploring a cave system in Penzance, with two 
companions of your choice, looking for treasure. An 
enormous number of obstacles stand in your way, butif you 
are brave, you will finally see the light of day. 


Because some of the inverse print statements are a little 
difficult to read, we'll print them now, before the listing: 


1100 YOU ARE IN CAVE NUMBER 

1160 YOUR COMBINED MAG/C POWER 

5232 ---STAND BY--- 

5542 GHOST OF LONG JOHN SILVER 

5560 AHA, A TREASURE MAP. . .CAN YOU, READ IT 
---WE SHALL SEE 

5567 NO, /T HAS FADED. . . 

5580 GADZOOKS ...A SAND TROLL 

5604 IT HOLDS A GENIE 

5607 IT HELD NOTHING BUT STALE SMOKE 

5620 ...WILL YOU MAKE /T 

5790 DESPAIR, JUST SAND 

5792 AND SPIDERS 

5806 SILVER, GOLD AND GEMS 

7000 CONGRATULATIONS 

8240 TIME TO PICK A PARTY TO EXPLORE THE 
CAVES WITH YOU... 


i 
2 
3 
4 
S 
6 
7 





peu BSMUGGLERS BOLDB 

REM REPLACE THE PAUSE LINES 
REM WITH LOOPS TO RUN NORE 
REM SMOOTHLY ON A B2ZxXe38 
REM 

SLOU 

RAND 


GOSUB 9588 
REM STATE OF PARTY 


CLS 

IF CAVE<1 THEN LET CAVE= a 
IF CASH<1 THEN LET CASH= 
IF S3¢<1 THEN LET S=0 


=@ 
IF CAVF:39 THEN GOTQA 7aan 
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110@ PRINT “EB 
“SCHRS (1 

4120 IF CASH>@ THEN 

PARTY IS CARRYING’, "€£"; CASH; ”" UO 

RTH OF TREASURE” 

1149 $;" AND “7 BS 

1145 PRINT TAB ey Fi are virTh You 


ase Cray “YOUR TOTAL STRENGTH 


136@ PRINT pYour COMBINED EER 
SUI E < 

3000 REM CAVE 

3100 PRINT VE POINTS: pee 
@454+30eP 


3120 PRINT TAB (8) Ieee * 
ace IF _ D$="5"" THER at (& 
ais PRINT TAB (635 “B “;CHRS ( 


CAVE +156) ; 
$178 ce Deane” HEN PRINT TAB [8 


biog TF D = THEN PRINT TAB 18 


boo IF pen LQND DStOSE" THEN 
PRINT TAB (8); wae se 

3210 PRINT TAB’ (8);" " 
3220 PRINT TAB (8)2°s "I - 
3230 IF _P$="N" THEN PRINT TAR IF 


} ee 
ab PR TAB (8); cae ie 
5100 PRINT “ UHICH EX N-S,Ee 


5120 INPUT Ds 
5125 IF D$="U" THEN STOP 
520a REM QUEST IONS 


CL 
5220 GOsuUB seeea 

S221 IF D¢3 THEN GOSUB 5513 
S225 IF Do1ié4 THEN GOSUB 578a 
S230 IF B>o2 AND D<15 THEN GOSLIB 
5480+202D 

S232 PRINT 5s 
5235 PAUSE 308 
5249 GOTO 300 
5513 PRINT “AHEAD OF you IS A CH 


E 
5514 GOSus seoo 
5515 PRINT “IT CONTAINS “;D72;"“ 


S516 PRINT “YOUR AVAILABLE ST.REN 

S517 PRINT “(THE MOST YOU CAN TA 
KE IS “;INT (S74);")" 

S520 PRINT “HOW MUCH WILL you TA 


SSa1 INPUT DD 

SSe22 IF 002072 OR DD>INT (874) T 
HEN GOTO S521 

SS23 LET S=S-DbD 

SSa4 LET CASH=CASH+t2.5#DD 







PRINT “YOUR 








SS39 RETURN 
55408 PRINT “YOU ARE FACE TO FACE 


WITH THE" 
5$42 PRINT " GHOST OF Midikly Bis 


5544 PRINT STEEL HE HARM yYoLc" 

5545 PAUSE 108 

5547 GOSUB 8@e0 

5549 IF D>8 THEN PRINT “YES...HE 
STRIKES. 

S5S@ IF D>8 THEN PRINT “AND ";AS 
i" FS INVURED* 

5551 IF D>8 THEN LET S=S5-2 

5552 IF 0)16 THEN LET P=P-1 

5553 IF 2<9 THEN PRINT "NO, HE WH 

AS TURNED AUAY","“YOU MAY PROCEED 


ang IF BP212 THEN LET CAVE=CAVE - 


S555 IF 0<9 THEN LET CAVE=CAUE 43 
S556 RETURN 
5560 PR Sea ae ears 


i Lam CU ‘apr SE AS 


it ba 
ene 
OSUB 8O00 

5564 PAUSE 1008 

5566 IF O0¢<11 THEN LET S=S-INT f(b 
73) 

S567 I Dea THEN PRINT “ESeGD 
5566 IF D>1 THEN PRINT “YES £££ 
fEELLE AND IT TELLS". “YOU WHERE 
TO FIND £°; 102D72, "WORTH OF GOLD 

DUBLOONS” 

5569 IF D>10 THEN LET CASH=CASH+t 


1@#072 
cece IF 6210 THEN LET CAVE=CAVE+ 


5S72 RETURN 


i — aed abr be 
“, “HAS IT SPOTTED ane 
5562 GOSUB a&aae 
SS83 PAUSE 200 
5584 IF B¢<? THEN PRINT “LUCKY... 
HE HAS TURNED AwAY" 
SS8S IF D>6& THEN PRINT “HORRORS, 


Si 
Soo” IF D>6 THEN LET CASH=CASH-21 


S587 IF CASH>® AND D>6 THEN PRI 
T “STEALING £°;1@02#D;" WORTH OF E 
MERALDS” 

SS89 IF D<? THEN LET CAVE=CAVEsi1 
SS90@ LET AS="BATTERED “+tAS 

5595 RETURN 

S560@@ PRINT “YOU FIND A BOTTLE FF 
SOEs OF", “CURIOUS. MISTY GLAS 
S..-.WHA es", “INSIDE IT?" 

56e2 GOSUB Bo0e 


5603 PAUSE 15:3D 65 











a lalene 





ee 









S6@4_IF _D<¢<7 THEN PRINT “IT HOLDS 
A UHO GIVES". “you pees 
* AND I CREASES YouR", STRENGTH 

S505" IF O¢7 THEN LET CASH=nASHsS 


5606 IF O<?7 THEN LET 3S=S8+D 
HEN RINT SSMeSTSIN 


SEN LET CAVE =CAVE +4 


N 
S620 PRINT “A_WILD WOLF HAS. BEEN 
ou A 









Sens SOSUB 8000 

5623 PAUSE 250 

S624 IF D<12 THEN PRINT “YES. YO 
u as TO ESCAPE 

S62S IF 0<12 THEN LET CAVE=CAVE+ 


2 
5626 IF D211 THEN PRINT “HORRORS 
IT HAS CAUGHT", "AND WOUNDED ":; 6 


% 
5627 = D211 THEN LET B$="“WOQUNDE 
eee IF D>11 THEN LET S=INT S35.42 


5629 RETURN 
S564@ PRINT “THE CAVE IS FULL OF 
POISONED”, "“GAS...FLEE FOR YOLIR L 


5641 GOSUB S008 

S642 LET CAVE=CAVE-1 
5643 LET S=S-INT (D5) 
565@ RETURN 

S780 PRINT “IN THE CAVE ARE ": 
S782 GOSUB 8e8G0e 

5764 PRINT D+1;" SACKS...","“WHIC 
H ONE DO YOU DARE OPEN?" 
5786 INPUT K 

S787 PAUSE 150 

5788 GOSUB S800 

5789 ar a a aay GoTo 5600 _ 





RN 
580@ PRINT “YOU ARE LUCKY” 
S58@S IF D216 THEN PRINT “DIAMOND 
S AND RUBIES” = 
5806 IF D < 17 THEN PRINT “HRSG? 






5810 GOSUB 8ee 

Segi2 LET CASH=CASH+7. Sap 
5813 LET S=S+1 

5614 LET P=P+1 

5820 RETURN, 





7010 PRINT 

7@26 PRINT “YOU, "“; AS, AND “; BS 
eae UCRARE. “MADE IT SAFELY our O 
7@40 PRINT TAB (6); “CAVE SYSTEM" 


“YQU HAVE £°";CASH;" @ 





rea PRINT 

7080 PRINT 

7090 PRINT “ AND SCORED “; 10% 
CASH+2045+56£P;" POINTS" 

710@ PRINT 


7105 FOR A=1 TO 6 
PRINT “mE3 






ass 
PAUS 
713Q@ NEXT A 

7999 STOP 

8@00@ REM RANDON NUMBERS 
6010 LET D=INT (RND£#£16) +1 
8Q@20 RETURN 

8200 ara MAKE UP PARTY 


Ss 
8220 GOSUB 6e00 
8230 Bees Sh =39.5*D 


Sea Ieee Reeser. eee 


6256 PRINT 

6255S FOR W=1 TO 2 

8256 IF VW=2 THEN CLS 

6260 PRINT “YOU HAVE £°; CASH 





8270 PRINT 
280 PRINT “YOU CAN HIRE ANY Bee 
OF THESE: " 
6290 PRINT 
6300 PRINT “NAME £ COST STRE 
NGTH POWER” 


6320 PRINT “1: NORGAL 1008 12 


8330 ea “2: MERLIN 47 2 
86340 Pe rrr "3: MUMBLE 83 6 
&350 ebay “ad: MNACKTQ an a 
8360 PRINT "S: MINMUK 64 3 
8370 PRINT 

8386 PRINT “CHOICE ":U 

8385 INPUT GW) 

6390 GOSUB &500110G (UV; 

8410 NEXT W 

8412 RETURN 

6415 sTop 

6519 LET CASH=CASH-100 

8511 LET S=S+12 © 
8312 IF U=l THEN LET Ag="MORGAL 


6513 IF W=2 THEN LET BS="HORGAL * 
8519 RETURN 
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8520 IF W=1 THEN LET A$="MEALIN" 
6521 LET CASH=CASH-47 

6S22 LET S=S+2 

8623 LET P=P+1@ 

as2e4 IF W=2 THEN LET B$=“MERLIN™ 
8S27 RETURN 

8S3@ IF W=1 THEN LET AS$="HUMBLE" 
8531 LET CASH=CARSH-6&S 

8532 LET S=S+6 

6S33 LET P=P+6 

6S34 IF W=2 THEN LET &$=“MUMBLE™ 


RETURN 
8S40@ IF W=1 THEN LET eer OEKT a 
8541 LET CASH=CASH-9 
6S42 LET = ae 
8543 LET P=P 
6544 IF Wee THEN LET BS$="NMACKTO" 
8547 RETURN 
eSS@Q IF W=1 THEN LET AS="“MINMNUK"™ 
8551 LET CASH=CASH-64 
6SSe2e Ler Boos 
85853 LET P=P+ < 
eSS4 IF ts=2a THEN LET BS="MINMUK 
83587 RETURN 


2500 REM VARIABLES 
G(2) 


9540 LET Of="" 
9560 LET P=0 
9570 LET S=08 
9610 LET CASH=8 
9620 LET CAVE=i1 
93890 GOSUB 8200 
9900 RETURN 


SIMON 


In this 1K ZX81 program, you have to copy the sequence of 
numbers selected by the computer. The numbers are from 
one to four, and -- as you'll see when you run the program 
--they are printed in a position relating to the number, which 
makes it easier to remember the sequence. 


When you run it, a single number will appear, then be 
blacked out. Just touch the same number on the keyboard. 
The same number will appear again, be blacked out, and a 
second number appear. You have to touch both numbers, 


in order, to continue playing. And so on. If you remember 
seven in a row, you win. Otherwise, the program stops, 
showing you your score. Some interesting space-saving 
techniques are used in this game. 


LET AS="" 

LET M=7 

LET ane r 

FOR A=Z M 

LET AR=ASISTRE (INT (RND#43 
NEXT_A 

LET X=z 


FOR @=Z TO x 
LET L=4#(CODE A&(®9) -29) 
PRINT AT L,N; ASI} 

FOR J=Z TO’ 20-x 

NEXT J 

PRINT AT LM; "RR" 

LET K=RND#RND 

CLS 

NEXT © 

FOR B=Z TO xX 

IF INKEY$i{o°" THEN GOTO 3122 
ZF. INKEY$=""" THEN GOTO 124 


e PRINT AT 423 (CODE INKEY$-2Q2) 


13 
2M; INK 


140 


iF FY CODE ABE se Cane (A$ (B) 


’} THEN yore 30 
1Se 


NEXT 
IF Xen THEN PRINT “3REREER 


LET X=X+Z 

CLS 

FOR W=zZ TO M+M 

NEXT W 

GOTO 70 

PRINT "YOU SCORED "“;X-Z 


A TOUS VOS REPAS BUVEZ 1’ 


EAU _MATTONI 





hiibler), de 
ee Aanstousies hictes eee et i cheer peed 
SS 


GRAND MASTER 


Here are five programs to produce pattern demonstrations on 
the ZX81. All except SNOWFLAKE fit within 1K. 


PERPETUA 


This program selects graphics or spaces from a string (A§, 
assigned in line 10) and PRINT ATs this in a balanced, and 
quite pleasing manner. 





AS =" SP li ee ES 


BS=ABSCINT CRND#23) +1) 
398, LET A=RNG15 

4@ LET B=RND#31 

S$@ LET C=15 





7@ PRINT AT A,B, BS 

8Q@ PRINT AT C-A,B;BS 

3 PRINT AT C-A,0O-B;: BS 
A,D-6;65 


SNOWFLAKE 


This uses PLOT and UNPLOT to create a balanced pattern 


10 


inside a frame . It needs more than 1K. 


1 GOSUB 5¢e@ 
RA alee 


5 

1@ LET ao Oo eRe 

20 LET BadOsRNDs 

3@ IF RND>.5 Ren GOTO 128 


7@ PLOT &4-5,6 
90 PLOT C228 aan? 


12@ UNPLOT A.B 

14@ UNPLOT A, ae 2 
160 UNPLOT 64- 

18@ UNPLOT e4-A. aD-B 


OT 1,0 
530 PLOT 62,43-d 
S535 PLOT 63,43-d 
550 NEXT J 
570 FOR eae 62a 


L 2 
59@ PLOT 63-U,42 
595 PLOT 63-J.,41 


620 RETURN 


PEA POD 


This uses PLOT, but is designed not to produce a balanced 
pattern, as the sample run indicates. The LET K = 
RND*RND lines are included to slow things down. By all 
means leave them out if you’re impatient. 


32 LET D=46 

35 LET A=C#RND 

4@ LET &=D#RND 

5@ LET K=RND4sRND 

69 PLOT A.B 

7@ LET K= =RND ##RND 

80 PLOT A.O- 

9@ IF RND>RND THEN RUN 
10@@ PLOT C-A.B 
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1108 ee K=RND £#RND 
120 oT -A,D-B 
13@ LET K=RND ##RND 





an 2 “" Bs 
ee = ee 8 a ‘a 
. | "= a ae r. 
_* SS. | . 
a 8 -. ss = * 
= - e * 
a * Heee ze & ati 
a oO as 2. * +, & 
:," 5". eo “8 5 _= ; 
"F grr eta ATK " 





SCARSDALE 


Scarsdale uses PRINT AT, but prints in pairs, that is, 
locations above and below each other (as will be clear when 
you run it). B§, in line 20, is an inverse space, a space, anda 
graphics A. 


29 LET BS$="IB RB CINT tRND#3) +2) 
38 LET A=RND2213 

40 LET B=RND230 

SQ LET C=14 

69 LET D=31 

7@ PRINT AT ALBIS BS . 

75 PRINT AT AtAZA,B; BS 

8@ PRINT AT C-A,B>BS 

85 PRINT AT C-AtALA,B; BS 
98 PRINT AT C-A,D-B;BS 

95 PRINT AT C-A+A/A,D-B; B88 
199 PRINT AT A,D-B:B 

19S PRINT AT A+ALA,D-B; BS 


BLIP BLIP 


Blip blip, which is based on the BUTTERFLY program in 
Tim Hartnell’s book GETTING ACQUAINTED WITH 
YOUR ZX81, produces the pattern shown below, perfectly 
balanced, but with no UNPLOT facility, so eventually the 
screen will turn completely black. 


aera nee 


B a me s 
a ea 
pe laa 
* “, = 
ae a 
s B 
30 LET A=RND£6O 
40 LET B=RND#40 
SQ LET C=6e8 
68 LET D=490 
78 PLOT A,B 
&@ PLOT C_A.B 
99 PLOT C-A.D-B 
10@ PLOT A,0-8 
11@ RUN 


WARPO 


The WARPO is a spooky-looking alien who pops up at 
random on the numbers one to five. If you press the same 
number before he vanishes, he will turn into a checkerboard 
pattern, and your score will increase. He will appear 20 times 
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in around. A good score is over 190. This takes 1K on anew 
ROM ZX80 or ZX81 and must be run in the FAST mode. 


19 DIM Ag(2.2 
2Q@ LET ARf21,.14) =" oe 
3@ LET A&(1,2) =" iM 
4@ LET AS$(2.1)=" . 
5Q@ LET AS(2.2) =" ne 
6e PRINT (AT 4.0;" 21 2 3 


38 
20G PRINT AT pas; “ 
oe8 PRINT TAB brs; * 
NEXT A 


BOWLING 


This program, which allows you to emulate (after a fashion) 
a 10 pin bowling alley, is written for a ZX81 with more than 
1K of memory. If you convert it for the ZX80, it will fit into 
1K. You bowl by hitting NEWLINE. There are 10 frames ina 
game, two balls in a frame. You get a bonus of 15 if you get 
all 10 pins down with two balls, and a bonus of 30 if you get 
the pins down with the first ball. There is a highest score 
feature. 


10 DIM ee 

20 LET Y = 

30 LET S = a 

40 FOR B = 1 TO 10 

50 FOR E = 170 2 

60 PRINT AT 9,83 

70 PRINT "FRAME "38,"BALL "sSCHRS(E + 156) 
aU LET Z = 0 

90 FOR C = 1 TO 10 


100 
110 
120 
130 
140 
150 


160 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


IF € = 2 THEN GOTO 120 

LET A(C) = 

IF ae = 52 AND RNO>.5 THEN LET A(C) = 61 

IF aA(C) = 61 THEN LET Z=2Z + 1 

NEXT C a 

PRINT CHR 10 " *® "SCHRS(A(9 " # "SCHR 

PRI yoopate i y} 3 3 (A(9))3 3CHRB(A(B)); 
PRINT " # "5 cmatiteiraes * "ZCHRB(A(S)) 3" * "5 
CHRS(A(4)) 

PRINT " * * "SCHRS(A(3))3" * "3 CHRS(A(2)) 

PRINT " * ¥ * "scHRs(a(1)) 

PRINT 

PRINT "SCORE THIS FRAME "32 

IF —€ = 1 AND Z = 10 THEN GOTU 370 

IF Z> 9 THEN LET Z = 15 

IF € = 2 THENLET S=S+2 

PRINT "SCORE SO FAR "3S 

INPUT US 

NEXT E 

NEXT 8 

PRINT "SCORE FOR THAT GAME WAS "35S 

IF S¢ Y THEN GOTO 330 

LET Y=S 

PRINT "HIGHEST SCORE SO FAR "3Y 

INPUT UZ 

cLS 

GOTO 30 

CLS 

PRINT "STRIKE" 
FOR R = 1 TO 200 
NEXT R 

LET S= S + 15 
LET E = 2 

CLS 

GOTO 230 





SPEEDWAY 


Here are three programs in which you have to drive a car 
down a track which twists and turns. Each fit within 1K ona 
ZX81, and use different tricks to squeeze within the limited 
memory. 


1 
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RACER 


In this, your car is an inverse H (see line 110). The graphics in 
line 60 are inverse space, three graphic H, inverse space; 
and the graphic in line 70 is from the H key. Use the graphic 
A if you want to leave a trail. The spot in front of your car 
turns into your score. Any total over 236 is very good. The 
“M" and “2” keys will control your vehicle. 


2@ LET A=10 
22 LET Z=A/A 
RS LET u=s=ARve 
3@ LET B=A 
4@ LET C=A+A 


T=z 
5e D=A-Av 
6e PRINT AT Cc, Opi: eta” 
7@ PRINT AT A,B: "RE" 

SCROLL 
90 IF INKEYS#="Z" THEN LET 8=B- 
100 IF INKEY$="M" THEN LET B=B+ 


110 PRINT AT A.B: "fi" 

120 IF D¢cA+U AAEN LET D=D+2#RND 

125 IF D>U THEN Ler D=D-2#RND 

140 PRINT AT AZ 

150 IF PEEK (PEER 16398+PEEK 16 
3992256) =«128 THEN PRINT T;W 

155 LET T=T+Z 

169 GOTO 6@ 


BRANDS HATCH 


Your car is a V this time, and the track is clear. Again “‘Z’’ 
and ‘‘M”’ control your vehicle, but the INKEY Sis interpreted 
in a different way from that in RACER (compare line 90 of 
BRANDS HATCH with lines 90 and 100 of RACER). 


42 LET C=A+A 
eT = 

6@ PRINT AT C.D; -_ , 
78 PRINT AT ABs" 

8@ SCROL 


90 LET fe ees 
NM") 
*T1a PRINT AT A.B; "U" 


ije IF D<17 THEN LET 0=0+2sAND 

125 IF D>? THEN LET ®=D-2=RNP 

ta@ PRINT AT 12 

450 IF PEEK (PEER: 463908+PEEK 16 
3992256) =128 THEN PRINT y;U 

158 LET Y=¥+z 

ise GOTO 6a 


WISE-MAN 


The vehicle (a Y, which explains the title) is not 
“unPRINTed” so the Y turns into a long, swinging line of 
Y's which you must guide through the terrors of a long and 
winding road (two graphic A's, separated by two spaces). 


The “’5” and ‘’8” keys control the Y’s. Line 40 changes the 
line from which SCROLL operates. This technique was 
discovered by Alastair Gourlay (author of 30 AMAZING 
GAMES FOR THE 1K 2X81). This program fits a 1K ZX81. 


41@ LET A=5 
20 LET J= aco 
LET S= 

48 POKE 16425, A 
S@ Ler Ron 

7@ LET O= 

8@ LET P= 5 

9@ SCROLL 

180 PRINT TAB DO; "SH #" 

110 LET Dab +AND sas (NOT O>18) -RN 
D#e2*e(NOT D<«63 

1306 PRINT AT S. a ee. 


150 IF PEEK (PEEK 16396+2564PEE 
K 16399) =136 THEN GOTO 200 

170 LET P=P+41 

ateee K=K+ CINKEY $="8") — CINKEY 
19@ GOTO 3a 

20@ PRINT P 
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SNAP 


The 1K ZX80 (new ROM) or ZX81 generates a number of 
large print numbers (one to nine) in fairly rapid succession. 
You have to try and anticipate which number will be next by 
holding it down. If the computer’s next number is the same as 
the one you are holding, the word SNAP is printed in large 
letters (using the routine starting at 33). There are 10 
numbers to a round. At the end of the round, your score is 
printed as a giant number. On a ZX81, you must run this in 


FAST. 


NOGA WN 


L 
144133121 
& GOTO 


3S 
3? 
38 


78 


Poe 
41133331414114131" 


frp ww ww 
p 
> 
p 


FOR I=1 T0 5 
PRINT ASIVAL BS(54X4+T) ) 
NEXT «£ 


oO 18 
X=INT (RND#2@) 
6B 18 
E Se 
IF INKEYS=STRS X THEN GOSUB 


CLS 
NEXT G 
CLS 
PRINT “YOU SCORED" 

=5 
STOP 
PRINT AT 1.16; "/™ Bb FJ, 
PRINT TAB 16:" ™, 953 bed & 
PRINT TAB 16: "Sen" FS DE SSB 
LET S=S+i 


PAUSE 5e 
RETURN 


HADYN 


This game -- as you can see from the screen printout -- puts 
you (the “’O”’) within a frame, with inverse asterisks appearing 





SCORE 32 


every second or so. If one lands on you, you are dead, and the 
game is over. The ‘“‘W”’ key moves you up, ‘’D’’ to the right, 
A" to the left and ‘’X’’ moves you down. You should be able 
to accumulate a score of more than 115. 


1@ PRINT ‘py: 
22 FOR N=1 TO 24 

3@ PRINT “S - 
4@ NEXT N 

S@ PRINT ‘eum 
eo rey Sean” 


Ss R 

90 PRINT AT ae, @; “SCa si 
130°. PRINT AT TT iRNDT13) /2+tRNDS 
118 TF PEEK Pc¢>S2 THEN STOP 

126 PAUSE 36 

13@ POKE P.@ 

248 LET S=5+12 

15@ LET P=P+ CINKEY $="D") —- CINKEY 
Set se ee ee eee 
160 IF PEEK P<>@ THEN STOP 

1708 GOTO 8&8 
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UFO 


You are in command of a UFO in this 1K game, and little 
aliens (the letter As) are running about underneath. You 
have a limited time in which to destroy them. You fire by 
pressing ‘’1"’ but each shot drastically reduces the length of 
time you have left. ‘’5’’ and ‘’8’’ move you back and forth. 
Enter a number between two and 31 at the start of the 
game. This number dictates the speed and direction of the 
aliens’ movement. Your score is shown at the top of the 
screen. 


1@ LET A=@ 
25 INPUT WU 
2@ LET B=" 
A AAR “e 
3@ LET Z=8 
S@ FOR J=1 TA 19a 

120 FOR E=12 Ta rt STEP 2. 

125 Pee AT 1a, 

127 LET @=RA5BS (Ao 32 

13@ IF INKEY$<>"1" THEN GOTO 14 


R A A A 


2 
192 LET U=J+19 
135 PRINT AT = 
137 IF BSste- as wea THEN LET z=z 
+3469 


14@ PRINT AT £,.90;" “ 

142 NEXT € 

aye IF INKEYS="“1" THEN LET BS(& 
158 PRINT AT @. ie z 

16@ PRINT AT 2a, 65 

17@ LET BS=BS(U fa 2461 TOA U- 


1} 
st2e.FET A=A- CINKEY$="6") + CINKEY 
= 

S@@ NEXT u 


SQUASH 


There are three balls to a round. The “7” moves your bat up, 
‘6’ moves it down. The longer you can keep the ball in play, 


the better your score. Any score over 67 is good. This takes 1K 
on a ZX81/new ROM ZX80. Run it in FAST. 


IF A=@ THEN Ler C=INT (RND# 


ET A=A-1 
TF INKEY %="?" THEN LET 6=6- 


IF INKEY $="6" THEN LET B=6+ 


PRINT ae Sg 23; 8" 

LET A= 

PRINT Ar 2A; "OD 

If A=-12 AND B=c THEN LET A 


pa a T=T3+1 

IF A=-20@ THEN GOTO 200 
GOTO 5@ 

LET S=s-1 


CLS 
IF 5>8@ THEN GOTO 2@ 
PRINT “YOU SCORED “UT 


CONVERTING 
PROGRAMS FOR THE 
NEW ROM AND THE 2X81 


It is generally fairly easy to convert programs written for old 
ROM ZX80's so they will run on the new ROM machines, 
although programs which include PEEKing and POKEing — 
especially into REM statements — can cause some 
difficulties. 

In many cases, you'll find the program runs far better on a 
new ROM machine. That is, it is more effective in giving 
user prompts, or a moving display, or in screen layout. 
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§2 


However, the new ROM is not as generous in memory as 
was the old ROM. Many 1K programs will not fit into 1K on 
the new ROM, because the systems variables for the new 
ROM use up much more of the original 1K than they do on 
the 4K ROM machine. 


MOVING DISPLAY 


Omit a moving display routine completely if inputting on old 
ROM program to a new ROM machine. Change the ‘time’ 
figure (usually given in the GOSUB line POKE 16414, n 
(where n is the ‘time’ figure). In other programs, the time is 
defined as LET T = n. Using the PAUSE functions, set n (as 
in PAUSE n) to give the most effective display, bearing in 
mind that PAUSE 5@ (PAUSE 69 in the U.S.) will hold the 
display for one second, pause 25 (PAUSE 39) for half a 
second, PAUSE 100 (PAUSE 120) for two seconds and so 
on. You can get a guide as to which figure to place after the 
word PAUSE by keeping in mind that the higher the number 
used for time in the old ROM moving display (up to, and 
including, 254), the shorter the time the display is held. 


RANDOM NUMBERS 


It is more expensive — in memory terms — to generate a 
random number on the new ROM than it is on the old. 


Here are the two versions: 


OLD ROM NEW ROM 
LET J = RND(6) LET J = INT(RND*6) + 7 


Some memory is saved by the fact that INT and RND are 


just single keystroke entries on new ROM machines, so 
each occupies just one byte. However, the multiplication 
sign, and the addition (which stops you getting 0 as part of 
your sequence of random numbers) eat up memory. If you 
need to generate many random numbers within different 
ranges during the course of a program, it might be worth 
having a subroutine of the type: LET J = INT(RND*K) + 1, 
and assign K each time before GOSUBing. Of course, this 
will take longer than having the line in sequence, but if 
operating time is not vital (and it rarely is unless you’re using 
an animated display), you'll find it will save you 
programming time and — in some programs — will also 
save you space if you do more in the subroutine than just 
generate random numbers. 


10 PRINT RND;” * ”; (where * is a single space) 
20 PAUSE 40 
30 GOTO 10 


This sequences can by very useful. For example, the line on 
the old ROM; IF RND(2) = 1 THEN... can easily be changed 
to the (almost) identical IF RND > .5 THEN... You can also 
use this to make statistically weighted decisions, so that if 
you want a particular program branch followed, say, about 
one in three times, you can just say: IF RND < .34 THEN 


PRINT AT B® 


There is a neat little routine, which used the line POKE Y*33 
+X + 1 + PEEK(16396) + PEEK (16397)*256, n to POKE 
character n onto the screen of an old ROM ZX80 at location 
Y, X(Y being lines down from the top of the screen, X being 
spaces across from the left hand side of the display). The 
new ROM machines do this automatically, and also has the 
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advantage of allowing you to have more than one character 
at this location. I'll explain: 


On the new ROM, you can use the PRINT AT command in 
the following way. You need to give two co-ordinates, Y 
(counted down from the top of the screen) and X (counted 
across from the left hand side of the screen). These are used 
in a line as follows, which will print the word END at about 
the middle of the screen: 


10 PRINT AT 10, 14;"END” 


You separate the two co-ordinates with a comma, and 
place a semi-colon after the second co-ordinate, before the 
words you want printed. The two co-ordinates can be 
worked out during the course of a program, so the line: 
PRINT AT B, A/3;"END” is acceptable. the function 
PRINT AT automatically ‘‘INTs’’ a non-integer co-ordinate. 


So, if you need to print at a certain location, or you feel a 
program would be enhanced by a PRINT AT (and it can 
save a lot of blank PRINT lines, and loops which print single 
spaces across the screen), by all means do so. If you want 
an object to move, you'll have to add a PAUSE n command 
after the PRINT AT, at the same locations, with blanks 
occupying the same locations as those previously occupied 
by, for example, the work END. Here’s a simple example: 


10 LETA=0 

20 LETB=0 

30 PRINT ATA,B;"X” 

40 PAUSE 30 

50 PRINTATA, B;” *”’ (a single space between quotes) 
60 LETA=A+RND 

70 LETB=B8B+RND 

80 IFA>18THENLETA = @ 


90 IFB>18THEN LET B=90 
100 GOTO 30 


This will make an X move erratically (more or less 
diagonally) across the scree. So, you can omit the long 
POKE Y*33...etc and replace it, on new ROM machines, 
with a simple PRINT AT. 


The new ROM also has a TAB function which can start a 
PRINT statement at any point you choose on aline, without 
you having to use a ‘blank spaces’ loop. 


OLD ROM NEW ROM 
10 FORA=1T010 = 19 PRINT TAB 10;"END” 
20 PRINT *”; 

30 NEXT A 

40 PRINT “END” 


Note that you need a semi-colon after the number before 
the characters to be printed. TAB is a single entry function. 


GRAPHICS 


All the graphics symbols (including inverse graphics, 
inverse numbers and letters, even an inverse space) are 
available directly from the keyboard on new ROM 
machines. This saves use of the CHRS$(n) idea (although if 
you do need it, you'll be pleased to know that CHR$ is a 
single entry function). The ‘automatic’ inverse graphics can 
be used to ‘dress up’ programs by giving, for example, the 
instructions and user prompts in inverse letters. 


To convert others, use the following table, in which the old 
ROM position is followed by the new ROM: 


Shift Q, graphic 5; Shift W, graphic 6; shift E, graphic 1; 
shift R, graphic 2; shift T, graphic D; shift A, graphic A; 
shift S, graphic T; shift D, graphic 4; shift F, graphic 3; 
shift G, graphic S. 


REM statements, TL$ 


The first address after the word REM on the old ROM is 





16427. The equivalent address on the new ROM machines is 
16514. You'll have to do some careful figuring to convert 
programs which rely heavily on data stored in a REM 
statement to get them to work on anew ROM machine. The 
TLS (truncate left) function on the old ROM is not available 
on the new ROM, so user responses which are two or more 


letters, which the computer assesses by stripping the string 
input character by character, will need to be replaced by 
prompts which allow the user to input (and the computer to 
deal with) the information single character by single 
character. The string arrays on the new ROM (which are 
actually character arrays) can be used as a form of 
READ/DATA. TL$(A$) can be simulated on the new ROM 
by A$(2 TO). 


INT 


As a general rule, always add the function INT (a single 
keystroke on the new ROM) before a division. That is, if the 
old ROM program says LET F = A/16, the new ROM 
version should be: LET F = INT(A/ 16). This is not needed if 
you're simply using the result of a calculation to PRINT AT 
or to TAB as the INT function is carried out automatically. 





This is a conversion table 
for PEEK/POKE addresses 
used with REM statements. 


OLD ROM NEW ROM/ZX81 


16426 16513 
16427 16514 
16428 16515 
16429 16516 
16439 16517 
16431 16518 
16432 16519 
16433 165268 
16434 16521 
16435 16522 
16436 16523 
16437 16524 
16438 16525 
16439 16526 
16449 16527 
16441 16528 
16442 16529 
16443 16539 
16444 16531 


16445 16532 


CODE MEANING 


0 ADWPODOVNMAMGAWN-G 


n 


Successful completion 

NEXT with no FOR 

Variable name not found 

Subscript out of range, or error regarding subscript 
Not enough room in memory 

No more room on screen 

Arithmetic overflow 

RETURN with no GOSUB 

Attempt to use INPUT in the direct mode 

STOP statement executed 

Invalid argument to certain functions 

Integer out of range 

The text of the (string) argument of VAL does not 
form a valid numerical expression 

Program interrupted by BREAK or the INPUT line 
starts with STOP 

Program name provided (for SAVE) is the empty 
string 


CONT/CONTINUE is the same as GOTO m, where m is the 
line number displayed after the error code, except after 
code 9 when it is GOTO m + 1 


FOR THE 


ZX80 





DRAUGHTS IN 1K 


DRAUGHTS in 1K? We couldn't believe it could be done. 
But once we’d RUN this program, and discovered that it 
actually did play draughts/checkers, and really did take up 
less than 1K on the old ROM ZX80, we realised it would have 
to be in the book. The program is in two parts. The first sets 





up the board, and the second actually plays the game. All 
you do is input the first program, which ends at line 130 
(PRINT “READY”) and RUN it. Once you've done this, you 
input the second program, which erases lines from the first 
program. However, the information from the first program 
is held in the ZX80’s variables store, and — so long as you do 
not press RUN or CLEAR — will stay there. Then, to play 


90 


the game, you use the printed board, and buttons or coins 
as pieces. Your pieces start at the bottom on the page (on 
the low numbers) and the ZX80 starts at the top of the page. 
Once you've got the pieces in place, you either input GOTO 
10 (if you want the computer to move first) or GOTO 329 if 
you insist on having first move. 


The ZX80’s moves are shown as two numbers. The first is 
the square it is moving from, and the second — naturally 
enough — is the square it is moving to. Move the piece on 
the board as instructed, and then decide on your move. 
Make sure you move your piece BEFORE you input your 
move (which you do by inputting the number of the square 
you're moving from, then NEWLINE, then the square 
you're moving to) or you may forget what your move was. 
At times, the ZX80 makes a decision so quickly you hardly 
have time to move your finger from NEWLINE before it has 
made, and printed, its decision. 


The ZX80 will make kings automatically (and use them most 
effectively) but there is no provision within the program for 
multiple jumps by either the computer or the player. Make 
sure you SAVE the program before you RUN it, or you'll 
lose the contents of the board. You need to reLOAD this 
program each time before playing. 


Here is the first part of the program, the section which sets 
up the board. If you have more than 1K, add 500 to each of 
the line numbers in this section, add the line 5 GOSUB 510 
and change line 13 (which will be 630) into RETURN. This 
will mean you do not need to reLOAD each time, and you'll 
be able to use RUN, instead of GOTO. The ZX80 will have 
first move every time in the upper memory version. (Note 
the underlined asterisk * in line 110. This symbol is used 
throughout the book to indicate a single space 
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DIM A(82) 


LET A(Z) = 9 

IF Z < 73 AND Z > 55 AND NOT (Z = 67 OR Z = 68 
OR Z = 69 OR Z = 61 OR Z = 62) THEN LET A(Z) = 1 

IF Z - 4 AND Z > 42 Asal (Z = 47 OR Z = 48 OR 

49) THEN LET A(Z) = 

IF Z ss "4" AND Z > 23 APs (Z = 34 OR Z = 35 OR 
Z = 36 OR Z = 28 OR Z = 29) THEN LET A(Z) = -1 

NEXT Z 

LET AZ = "MY MOVE * " 

LET BS = "YOURS?" 

PRINT "READY" 


Input the program and RUN it. SAVE this a couple of times, 
and then input the following program. DO NOT PRESS 


RUN AGAIN or you'll lose the board. 


LE? Q = 
FOR Z = 2 
IF NOT tp. = ‘ OR A(Z) = 2) THEN GOTO 19¢ 
IF A(Z) = : see Z? 23 AND Z¢28 THEN LET A(Z) = 2 
FOR K = 1 
IF A(Z + tt) < @ AND A(Z + 2% X(X) ) = @ 
THEN LET Q = X(X) 
IF Z > 55 THEN GOTO 8g 
IF A(Z) = 2 AND A(Z - X(X))< @ AND A(Z = 2* X(X) ) 
= g THEN LET Q = om X(X ) 
IF NOT Q = @ THEN GOTO 129 
NEXT X 
NEXT Z 
IF Q = @ THEN GOTO 16¢ 
LET A(Z + Q) = @ 
LET A(Z + 2*%Q) = A(Z) 
LET A(Z) = @ 
PRINT AS;Z, Z + 2*Q 
GOTO 329 
LET Y = @ 
LET Z = 23 + RND(49) 
LET Y = Y + 1 
IF Y < 19% AND NOT (A(Z) = 1 OR A(Z) = 2) 
THEN sun 178 
FOR X = 1 TO 
IF A(z + x(x) = @ THEN LET Q = X(X) 
IF A(Z) = 2 AND iG - X(X)) = @ THEN LET Q = -X(X) 
IF NOT Q = @ THEN GOTO 299 
NEXT X 
IF Y < 199 THEN GOTO 17¢ 


278 PRINT "YOU WIN" 


288 STOP 

298 LET A(Z + Q) = A(Z) 
308 LET A(Z) = @ 

319 PRINT AZ;Z, 2+ 
329 PRINT ,Bg 

325 INPUT A 

330 INPUT B 

335 CLS 

340 LET A(B) = - 1 

358 LET A(A) = @ 

369 IF ABS(A - B) > 7 THEN LET A(A + ((B- A)/2)) = @ 
379 GoTo 19 


Space-Station 


The lives of a hundred or so colonists are in your hands. You 
are in control of a 4K space station, with limited food and 
oxygen, and subject to occasional attacks from space 
pirates. You make money, to buy oxygen and food, and to 
pay the annual maintenance bill for the station, by making 
and trading ‘ARTEFACTS’. Now, artefacts use up oxygen 
when they're being manufactured, so you have to choose 
carefully how many to make each year. This game is a space 
age version of KINGDOMS and — apart from the infrequent 
attacks from outer space — does not depend on random 
factors during the course of a game. It.is almost completely 
a game of skill. Unless you are very clever, or the starting 
parameters are particularly generous, you are unlikely to be 
able to keep the station alive for more than 12 years. 


1 RANDOMISE 
1g GOSUB 3996 
29 LET YEAR = YEAR + 1 


3p LET FOLK = FOLK + FOLK/(2 + RND(18)) - FOLK/(3 + RND(15)) 


49 GOTO 719 

58 PRINT "COMPUTERS REPORT:" 

66 PRINT 

16 IF OXY < OXYNEED * FOLK THEN GOTO 8999 

8g IF FOOD< FOODNEED * FOLK THEN GOTO 8199 

9g IF CASH <1 THEN GOTO 8299 

196 IF FOLK ¢2 THEN GOTO 8399 

119 IF FOLK <13 THEN PRINT “WARNING - POPULATION IS", 
"NEARING EXTINCTION" 

129 IF OXY < 2 * OXYNEED * FOLK THEN PRINT “WARNING - 
OXYGEN SUPPLIES LOW" 
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94 


138 
148 


158 
1698 
179 
189 
198 
208 
219 
228 
239 
248 


619 


766 


118 
7189 
198 
Bae 
845 
816 
6829 
839 


858 
855 


869 
876 
88g 


IF FOOD< 2 * FOODNEED * FOLK THEN PRINT "WARNING - 
FOOD STOCKS LOW" 

IF CASH “289% THEN PRINT "WARNING - MONEY 
RUNNING LOW" 

PRINT "**THERE ARE * ";FOLK;" * PEOPLE ON" 

PRINT "THE SPACE STATION IN YEAR * "SYEAR; "ee" 

PRINT 

PRINT "MONEY CREDIT IS £";CASH 

PRINT ,"ANNUAL MAINTENANCE: £";REPAIR 

PRINT "OXYGEN TANKS HOLD * ";OXY3;" UNITS" 

PRINT "OXYGEN COSTS £";OXYCOST;" * PER UNIT" 

PRINT "OXYGEN NEED PER PERSON: * ";OXYNEED 

PRINT 

PRINT "FOOD STOCKS STAND AT * ";FOOD 


LET U = 128 + RND(11) 

FOR J = 1 TO 32 

PRINT CHR (U); 

NEXT J 

PRINT 

RETURN 

GOSUB 59 

PRINT "ARTEFACTS - HOW MANY WILL YOU",,"MAKE 
AND TRADE?" 

PRINT " * * THEY USE UP * "sARTCOST;" UNITS OF" 

PRINT "OXYGEN AND SELL FOR £"sARTPAY 

INPUT B 

IF B * ARTCOST < OXY THEN PRINT "NOT ENOUGH OXYGEN" 

IF B * ARTCOST < OXY THEN GOTO 729 

LET CASH = CASH + B * ARTPAY 

LET OXY = OXY - B * ARTCOST 

CLS 

GOSUB 5¢ 


PRINT "FOOD COSTS £";FOODCOST;" * PER UNIT" 
PRINT "EACH PERSON NEEDS * "; FOODNEED; " * FOOD UNITS" 


PRINT "(£"; FOODCOST * FOODNEED;" * EACH, £"; 
FOLK * FOODCOST * FOODNEED;" * FOR 
STATION" 

PRINT "THIS WILL LAST * ";FOOD/ (FOODNEED * FOLK); 
" * YEARS AT THE", "PRESENT POPULATION" 

PRINT "HOW MANY FOOD UNITS WILL YOU BUY?" 

INPUT C 

IF C * FOODCOST CASH THEN PRINT "NOT ENOUGH MONEY" 

IF ¢C * FOODCOST CASH THEN GOTO 789 

LET FOOD = FOOD + C * FOODCOST 

LET CASH = CASH - C * FOODCOST 

CLS 

GOSUB 58 


PRINT "HOW MUCH OXYGEN WILL YOU BUY?" 
PRINT "(CURRENT STOCKS WILL LAST FOR * "3; OXY/ 
(OXYNEED * FOLK)3;" * YEARS AT THE 
PRESENT POPULATION )® 
INPUT D 
IF D * OXYCOST < CASH THEN PRINT "NOT ENOUGH MONEY" 
IF D * OXYCOST <CASH THEN GOTO 869 


896 
998 


2995 
2939 
2949 
2059 


3016 
3815 


3929 
3030 
3049 
3058 
3955 
3968 
3070 
3989 
3698 
3196 
3105 
3115 
10619 
7612 
1913 


CLS 
IF RND(5) = 2 THEN GOSUB 7699 


LET FOOD = FOOD - FOLK * FOODNEED 
LET CASH = CASH - REPAIR - D * OXYCOST 
LET OXY = OXY + D - FOLK * OXYNEED 
GOTO 29 


LE? YEAR = RND(5) 
LET AZ = "THE STATION IS DEAD" 


LET FOLK = 89 + RND(49) 

LET CASH = 7 * (70% + RND (899))/ RND(3) 
LET FOODCOST = RND(7) 

LET ARTCOST = 1 + RND(3) 

LET FOOD = 2699 + RND(590) 


LET OXY = 2099 - RND(159A) 

LET OXYCOST = RND(7) 

LET ARTPAY = 39 * RND(ARTCOST) 

LET REPAIR = 299 + RND(499) 

LET FOODNEED = 1 + RND(5) 

LET OXYNEEDO = 2 + RND(3) 

RETURN 

CLS 

LET J = RND(6) 

PRINT “HE STATION WAS ATTACKED BY" 


IF J = 1 THEN PRINT “A FLEET OF SYRIAN SHIPS" 

IF J = 2 THEN PRINT “RENEGADE EARTILINGS" 

IF J = 3 THEN PRINT "MARTIAN SPACE PILOTS" 

IF J = 4 THEN PRINT “VYRILLIEX OUTVORLDERS" 

IF J = 5 THEN PRINT “A LONE SHIP, APPARENTLY UNDER",, 


"ROBOT CONTROL" 
IF J = 6 THEN PRINT "A PARRALEXIAN ESCORT VESSEL" 
PRINT 
PRINT 
PRINT 
LET Z = 1 + (FOLK/ (RND(15) + 1) 
PRINT "THERE WERE * ";Z;" * PEOPLE KILLED" 
PRINT 
LET 2Z = 258 + RND(259) 
PRINT " * * * DAMAGE WAS £";2Z 
PRINT 
LET 22Z = RND(3@9) 
LET ZZZ2Z = RND(399) 
PRINT "AND FOOD STOCKS HAVE FALLEN", ,"BY * "37722 
LET FOOD = FOOD «= 2222 
LET FOLK = FOLK - Z 
LET OXY = OXY - ZZZ 
LET CASH = CASH - 22 
PRINT 
PRINT ,,"PRESS N/L" 
INPUT UZ 
CLS 
RETURN 


PRINT AZ 
PRINT "YOU RAN OUT OF OXYGEN IN YEAR * "; YEAR 
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36 


8949 
8199 
8119 
8128 
8298 
8219 
8228 
8319 
8315 
8328 
8325 
8339 
83498 
8358 
8368 
8365 
8378 
8385 
8395 
8499 
8419 


GOTO 8929 

PRINT AZ 

PRINT "FOOD SUPPLIES WERE EXHAUSTED IN YEAR * "; YEAR; 
GOTO 819d 

PRINT AZ 

PRINT "THE TREASURY RAN DRY DURING YEAR * "3YEAR;" ¥ ty 
GOTO 8219 

PRINT "YOUR POPULATION HAS FALLEN" 
LET FOLK = RND(26) 

PRINT "TO * ";FOLK;". DO YOU WANT TO" 
LET CASH = RND(39@) 

PRINT "COMMI'T SUICIDE PAINLESSLY " 
PRINT "NOW (1) OR AWAIT A SAD AND" 
PRINT "LINGERING DEATH? (z)" 

INPUT B 

CLS 

IF Bs = 1 THEN GOTO 8499 

PRINT "J HOPE YOU HAVE CHOSEN WELL" 
GOTO 26 

PRINT "GOOD BYE * "; 

GOTO 84¢9 


CHESSBOARD NIM 


You and the computer take it in turns to take pieces from the 
chessboard. The player who takes the last piece loses the 
game. The computer is programmed NOT to play a perfect 
game, to give you a chance to win now and again. If you 
want the ZX80 to win every time, and there is little fun in 
playing with it if you do, delete line 349. 


LET S = @ 
LET C = g 
LET Z = 29 + RND(11) 
LET F = 2 + RND(3) 
DIM A(32) 
GOTO 38¢ 
IF S = @ THEN PRINT “PIECES ON BOARD "3;Z 
IF S = @ THEN PRINT "MAXIMUM NUMBER TO REMOVE ";F 
IF C> @ AND S = @ THEN PRINT "YOU TOOK ";C; 

", I TOOK "3D 


FOR A = @ TO 3 

PRINT 

FOR B = # TO 3 

PRINT CHRS(A(29 + A — B*8))3CHRS( 128); 
NEXT B 

PRINT 

FOR B = @ TO 3 

PRINT CHRS(128);CHRS(A(25 + A - B*8));3 
NEXT B 


198 
208 
219 
224 
238 
249 
258 
268 
270 
288 
299 
300 
319 
3298 
338 
348 


345 


350 
369 
378 
389 
390 


419 
428 
430 


450 





IF S = 1 THEN PRINT ,"YOU WIN" 
IF S = 2 THEN PRINT ,"I WIN" 
IF 3S ¥ @ THEN STOP 
PRINT 
PRINT "HOW MANY WILL YOU TAKE?" 
INPUT C 
IF C <1 ORC) F THEN GOTO 259 
LET Z=2-C 
IF Z» @ THEN GOTO 319 
LET S = 2 
IF S_ = 2 THEN GOTO 389 
LET D= 2 - 1 - ((Z = 1)/(F + 1))*(F 
IF D = @ AND NOT Z = 1 THEN LET D = 
IF NOT D & 2 THEN GOTO 329 
IF Z < F + 2 AND RND(4) #@ 4 THEN LET 
D = D + RND(2) — RND(2) 
IF D) F THEN GOTO 319 


IF D = @ THEN LET D = 1 
LET Z22-D 

IF Z = @ THEN LET S$ = 1 
FOR A = 1 TO Z 

LET A(A) = 52 

NEXT A 

FOR A = 2 + 1 TO 32 

LET A(A) = @ 

NEXT A 

CLS 

GOTO 79 


NEXT A 


+ 1) 
RND(F) 
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BOMB 


You are searching on a solid black plane (a 9 x 9 grid of 
CHR$(128)’s) for a bomb, armed only with your keyboard 
and NEWLINE. A ‘bomb detector’ — a number which 
appears below the large black square — gives you clues to 
tell you where you are in relation to the bomb. You'll have to 
learn how to interpret the detector’s output. You move by 
hitting the keys 5, 6, 7 or 8 before NEWLINE, and you move 
in the direction of the arrows on these keys. When you find 
it, an inverse ‘’B’’ will appear where the bomb was hidden. 
This 1K program also gives you a readout of how long it took 
you to find it. If you are converting this program to run ona 
new ROM machine, you can change lines to accept an 
INKEY$ input (you will need a PAUSE 49) as well to save 
you having to press NEWLINE after each guess. 


19 LET 3 


= §@ 
2¢ LET A = 1 + RND(8) 
39 LET B = RND(9) 
49 LET K = 16396 
58 LET Q = 128 
69 FOR Z = 1 TO 19 
16 PRINT ,555 
89 NEXT Z 
99 FOR X = 2 TO 19 
199 FOR Y = 1 TO 19 
119 POKE ¥ * 33 + X + PEEK(K) + PEEK( K + 1)*256, Q 
126 NEXT Y 
139 NEXT X 
149 LET C = 1 
159 LET D = 1 
169 POKE C * 33 + D+ 1 + PEEK(K) + PEEK(K + 1)*256, 189 
178 LETS = S + 1 
189 INPUT EZ 
199 POKE C * 33 + D+ 1 + PEEK(K) + PEEK (K + 1)*256, Q 
298 IF EZ = "7" THEN LET C = C - 1 
219 IF EZ = "5" THEN LET D = D - 1 
228 IF E% = "6" THEN LET C = C + 1 
238 IF E% = "8" THEN LET D = D + 1 
240 IF C <1 THEN LET C = 1 
259 IF C9 THEN LET C = 9 
269 IF D<¢1 THEN LET D = 1 
278 IF D)9 THEN LET D = 9 
289 IF A = C AND B = D THEN GOTO 319 


298 POKE 187 + ae) + PEEK(K + 1)*256, ABS(B — D)+ 


BS(A - C) + 156 
306 GOTO 169 
319 PRINT "SUCCESS AT * ";C,D;" * IN * "33; * PRIES" 
329 POKE C *33 + D+1°4 PEEK(K)~ + PEEK (K + 7) #256, 167 


BLACKJACK 


John Scarne, in his authoritative SCARNE’S 
ENCYCLOPEDIA OF GAMES, says Blackjack is ‘‘the most 
widely played banking card game in the world”. It is 
relatively simple to play: The players try to get as close as 
possible to a total of 21, without exceeding 21. Aces count 
as either 1 or 11, and Kings, Queens, and Jacks each count 
as 10. This program automatically assigns a value of 1 to an 
Ace if counting it as 11 would force the total over 21. The 
human player always goes first in this ZX80 version of the 
game. After each card is handed out, you have the option of 
taking another one, or ‘“‘standing’’, that is staying as you are 
(see line 80). The round is a draw if both of you reach the 
same total, and it is less than 21. If you “‘bust’’, that is you 
exceed 21, the ZX80 wins that round automatically. The 
PRINT lines in this 2K program are a good example of ZX80 
arrogance. 


18 GOTO 169 

2g LET CARD = RND(11) 

30 IF CARD = 11 AND D + CARD> 21 THEN LET CARD = 1 
35 LET D = D + CARD 

4¢ RETURN 

5¢ LET CARD = RND(11) 

69 IF CARD = 11 AND B + CARD> 21 THEN LET CARD = 1 
65 LET B = B + CARD 

16 RETURN 

8¢ PRINT " * * * ANOTHER CARD (1) OR WILL",,"YOU STAND (g)?" 
98 INPUT G 


19d RETURN 


119 PRINT ,,,,, " * * * ANOTHER GAME, CARD-SHARP?" 
129 INPUT AZ 


139 CLS 
148 IF NOT AZ = "NO" THEN RUN 
158 STOP 


99 


169 
178 
189 
198 
209 
219 
226 
238 
244 
258 


2698 
271A 
269 
298 


318 
329 
339 
340 
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LET D = @ 
LET B = @ 
GOSUB 29 
LET H = CARD 
GOSUB 29 
LET A = CARD 
GOSUB 5¢ 
LET FE = CARD 
GOSUB 59 
LET F = CARD 


LET BB = "THE ZX89 HAS * "; 
LET C# = "THE HUMAN HAS * " 
PRINT ,BA;H 

PRINT ,CZ;F;" * AND * "3F 
PRINT ,,"TOTALLING * "; E+ F 
LET D=H+ A 

LFT B= E + F 

IF B = 21 THEN GOTO 449 
GOSUB 8f 


IF G = 1 THEN GOTO 499 

CLS 

IF D¢17 THEN GOTO 539 

IF NOT D = 21 THEN PRINT ,Bg;D 

IF NOT B = 21 THEN PRINT ,CZ;B 

IF B = D AND NOT B = 21 THEN PRINT ,"SO THIS ROUND 
IS A DRAW" 

IF.D = 21 AND NOY B = 21 THEN PRINT BZ; "BLACKJACK..." 

IF B> 21 THEN PRINT C%;"BUSTED",,"SO ZX80 WINS..." 

IF D < B AND NOT D> 21 THEN PRINT " * * * ZX89 DESTROYS 

HUMAN WITH A ",,"BRILLIANT DISPLAY OF", ,"CARD PLAYING" 

IF D> 21 THEN PRINT BZ; "BUSTED" 

IF D< 21 OR (BY D AND NOT B > 21) THEN PRINT " * * * 
YOU HAVE WON SOMEHOW...",,"LUCK, I GUESS" 


GOTO 119 

PRINT CZ; "BLACKJACK" 

IF NOT D = 21 THEN GOTO 379 
PRINT "BUT SO HAS THE CLEVER COMPUTER,",,"SO ITS A DRAW" 
GOTO 119 

GOSUB 5¢ 

PRINT CZ;CARD;" * TOTAL: * "3B 
IF B> 21 THEN GOTO 499 

GOTO 349 

PRINT BZ;D 

INPUT UZ 

GOSUB 2¢ 

PRINT BZ; CARD 

PRINT "SO ITS TOTAL IS * "3D 
INPUT UZ 

IF D) 21 THEN GOTO 429 

IF D < 17 THEN GOTO 549 

GOTO 379 





DARTS 


This 1K program shows the REM statement being used to 
hold DATA for subsequent READing, thus substituting for 
the absent READ/DATA function in ZX80 BASIC. This 
game allows two players to choose from three shots to build 
up a total of 250. The result of your choice is not entirely 
random, and quite specific strategies can be developed 
which will give different results. Play it a number of times to 
determine your own strategy before challenging a friend. 
The score for player one is stored in address 16541 (on the 
old ROM ZX80), and player two’s score is 16452. These are 
reset to zero, by lines 20 and 3@, every time a new game is 
played. These are the only two addresses which are POKEd 
with new values, so these are the only two which have to be 
reset. The others -- the values of the ‘darts throws” -- are 
only PEEKed. One is added to the values obtained from the 
REM statement, and these are multiplied by 10 in the PRINT 
lines 1050, 1060 and 10790. 
1p REM 8 shiftQ shiftW shiftE shiftW space shiftw 


space shiftW shiftE shiftE space shiftE 
apace shiftE shiftD shiftE 4spaces 





2g POKE 16451, @ 

39 POKE 16452, @ 

4p PRINT "WHICH SHOT PLAYER 1 (1 TO 3)" 
59 LET Z = 1 

69 INPUT A 

vf") IF A€ 1 OR A > 3 THEN GOTO 68 . 
8g LETA =A +1 

9¢ CLS 

199 GOSUB 1999 x 
11g CLEAR 

126 PRINT 

138 PRINT "WHICH SHOT PLAYER 2? (1 TO 3)" 
149 INPUT A 

158 LET Z = 2 

16¢ IF A <1 OR AD 3 THEN GOTO 149 

176 LET A = A + 1 

189 PRINT 

199 GOSUB 1999 

208 PRINT 

219 PRINT ,"N/L FOR NEXT THROW" 

226 INPUT AZ 

236 IF NOT AZ = "" THEN STOP 

249 CLS 


250 GOTO 49 
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1909 LET C = 1 + RND(12) 

1819 IF A = PEEK(16426 + C) THEN LET J = PEEK (1645@ + 2) 
1929 IF NOT A = PEEK(16426 + C) THEN GOTO 1999 

1930 POKE 1645% + Z, J + PEEK(16427 + C) 

1948 IF PEEK(16427 + C ) = 6 THEN PRINT ,"--BULLSEYE--" 


1958 PRINT "YOU GOT * "319*PEEK(16427 + C);" * FROM 
A * "SAK 


1969 IF Z = 1 THEN PRINT ,"TOTAL, PLAYER 13 * "; 
419 *PEEK (164515 . 

1978 IF Z = 2 THEN PRINT ,"TOTAL, PLAYER 2: * "3 
19 *PEEK (164525 - 


198¢ IF 19*PEEK(1645@ + 2) > 259 THEN GOTO 2999 
1998 RETURN 

20998 CLS 

2918 PRINT "PLAYER * "323" * IS THE WINNER" 
2929 PRINT ,,"PLAYER 14: * "319*PERK(16451 

2938 PRINT ,,"PLAYER 2: * "3 19*PEEK(16452 

2048 CLEAR 

2058 PRINT "WHAMMO..."; 

2p68 GOTO 2459 


MORDECHAI-MIND 


This game is marketed under the trade name MASTER- 
MIND by Invicta, who bought the rights to the game from 
an amateur mathematician, Mordechai Meirovich, in 1971. 
The game has been popular in England for centuries under 
the name BULLS AND COWS. The principle is simple. The 
computer picks a four-digit code, using the numbers 1 to 9, 
and never repeating the same digit within the code. You 
input your guess for the number, as a four-digit number, 
then press NEWLINE. A correct digit in the correct location 
will gain you a “‘black’’, a correct digit in the wrong position 
scores a ‘‘white’’. You have just 10 guesses to crack the 
code. Do not use the same digit twice in a single guess, or 
you'll confuse the poor little ZX80. 


1g DIM C(4 

20 DIM G(4 

39 LET C(1) = RND(9) 

48 FOR Z = 2 TO 

50 LET C(Z) = RND(9) 

69 FOR J= 1 T02Z- 1 

1 IF C(J) = C(Z) THEN GOTO 4¢ 
8g NEXT J 

99 NEXT Z 


FOR G = 1 TO 19 

INPUT A 

LET A1 = A 

FOR Z = 1 T0 4 

LET G(Z) = A ~ 16*(A/19) 
LET A = A/ig 

NEXT Z 

LET B = @ 

FOR Z = TO 4 


LET W = 
IF NOT oz) = G(Z) THEN GOTO 239 

LET B = B + 1 

LET Q(z) = @ 

NEXT Z 

FOR Z = 1 TO 4 

IF G(z) = a. THEN GOTO 399 

FOR J = 04 

IF NOT elz) = = (4) THEN GOTO 299 

LET W = W + 

NEXT J 

NEXT Z 

PRINT A1;" * SCORED * * ";CHRA(B + 156)3" * BLACK"; 
IF B = 1 THEN PRINT * ¥ wy; 

IF NOT B = 1 THEN PRINT "S"; 

PRINT " * * * "SCHRS(W + 156)3" * WHITE"; 
IF NOT W = 1 THEN PRINT "S"; 

PRINT 

IF B = 4 THEN PRINT "YOU GUESSED IT * "; 
IF B = 4 THEN GOTO 419 

NEXT @ 

PRINT "THE CORRECT CODE WAS * "; 

FOR Z = 1 TO 4 

PRINT C(5 - Z)3 

NEXT Z 


CHALLENGE CHECKERS 


The Victorians loved to play a variation of DRAUGHTS 
which they called REVERSI (a name also given to an early 
version of OTHELLO, but that’s another story). This is the 
ZX80 and ZX81 version of the game. It’s played on a 
standard draughts board. You start on the right hand side, 
the computer on the left. In CHALLENGE CHECKERS, you 
follow the ordinary rules of draughts, (diagonal moves only, 
capture by jumping over an opponent's piece into an empty 
square) with a few exceptions. There are no multiple jumps, 
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and no kings. As well, you can move backwards and 
forwards as you choose (as if you had a board of kings). But 
the major difference between CHALLENGE CHECKERS 
and draughts — and the whole point of the game — is the 
result of a capture. In ordinary draughts you take your 
opponent’s piece off the board. In CHALLENGE 
CHECKERS the piece changes to become one of yours 
(which is why the Victorians called it REVERSI). The winner 
is the first player to ‘‘convert’’ eight pieces. 


If you'd like to read more about turn-of-the-century variants 
of draughts, take a look at Roger Millington’s splendid book 
GAMES AND PUZZLES FOR ADDICTS. The giant book 
PLAY THE GAME — OVER 40 GAMES FROM THE 
GOLDEN AGE OF BOARD GAMES compiled by Brian 
Lowe also shows how other games were developed from 
draughts. 


TWO DIRE WARNINGS: Sometimes you'll _ find 
CHALLENGE CHECKERS locked into a I’LL TAKE ONE OF 
YOURS, THEN YOU TAKE IT BACK cycle. If this happens, 
move another piece, or you'll still be playing the game when 
your computer reverts to its constituent elements. The 
second warning: This game is highly addictive. Oh, and by 
the way, you need at least 4K to play this game. 


1g GOTO 9999 


28 GOSUB 59998 
35 LET Q = @ 
49 IF SI = 8 THEN LET Q = 1 
58 IF SM = 8 THEN LET Q = 2 


1999 IF Q) @ THEN GOTO 5998 

1919 PRINT 

1929 IF AS > "" THEN PRINT "YOUR LAST MOVE WAS TO * ";AZ 
1939 PRINT "THIS MOVE: FROM? (LETTER, NUMBER)" 

1949 INPUT BZ 

1958 PRINT BS;" * TO? 


INPUT CZ 

LET AZ = CZ 

FOR W = 1 TO 2 

IF W= 1 THEN LET EZ = Bg 

IF W = 2 THEN LET EX = CZ 

LET ¥(W) = -50*(ES = "C4") -62*(EZ = "A2") -49*(EZ ="A4") 
-36*(BZ = "A6") -234(ES = "AB") -69%(ES = "B1") 
-56*(EZ = "B3") - 43*(EZ = "B5") ~ 63*(63 = 
"C2") ~ 37*(ES = "C6") —- 24*(EZ = "CB") ~ 7g* 
(EZ = "D1I") - 57*(EZ = "D3") - 44*(ES = "D5") 
-31*(EB = "D7") - 64*(ES = "EO") - 51*( EB = 
"RA t) = 38*( ES on "B6") os 25*(EZ = "8 ") -71% 
(EZ = "F1I") - 58*(ES = "F3") - 45%*(ES = "F5") 
-32"(ES = "F7") - 65*(EZ = "G2") -52*(ES = 
"G4") ~ 39%(EZ = "G6") -~26*(EZ = "G8") ~72" 
(EZ = “H1") - 59*(EZ = WH3") 46*( Eg = "I5") 
-33*(EX = "H7") -39* (Ed = "B7") 

NEXT W 


LET re = 1 

LET atets = @ 

IP AGG} - ¥(2)) > 7 ‘THEN LET SM = SM + 1 
IF ¥(1 Ue ie Tie ee hte -6)=1 
IF X¥(4 ¥(2) = 14 THEN LET A(¥(1) - 7) = 1 
IF ¥(2) - ¥(1) = 12 THEN LET A(Y¥(2) - 6) = 1 
IF ¥(2) - ¥(1) = 14 THEN LET A(Y¥(2) - 7) = 1 
LE? MOVE = 1 


GOSUB 599g 


REM COMPUTER JUMPS 
LET X = @ 
FOR Z = 23 T0 72 
IF NOT A(Z) = 9 THEN GOTO 298g 
IF A(Z + 14) = @ AND A(Z + 7) = 1 THEN LET X = 14 
IF X = @ AND A(Z + 12) = @ AND A(Z + 6) = 
THEN LET X = 12 
IF X = @ AND A(Z - 14) = @ AND A(Z - 7) = 1 
THEN LET X = -14 
IF X = @ AND A(Z - 12) = @ AND A(Z ~ 6) = 1 
THEN LET X = -12 
@ THEN NEXT Z 
@ THEN GOTO 3999 


REM COMPUTER MOVES SAFELY 

LET X = @ 

LET Y = 9 

LET Z = 22 + RND( 5¢ ) 

LET Y= Y + 1 

IF ¥ ¢ 59 AND NOT A(Z) = 9 THEN GOTO 3939 

IF X= @ AND A(Z - 6) = @ AND A(Z - 12) & @ 
THEN LET X = - 6 

IF X= @ AND A(Z - 7) = @ AND A(Z ~- 14) = @ 
THEN LET X = - 7 





105 


106 


Te ee RAO BAZ 9 8) 8 AND ELE 9 82) 
0 


TH ET X 
IF X = 9 AND ae + ee “a AND A(z + 14) = @ 
IF X = 9 AND ie 3 THEN GOTO 39398 
IF X = 9 AND Y) 49 THEN GOTO 4999 


LET A(Z) = @ 

LET A(z + X) 2 9 

GOTO 2¢ 

REM COMPUTER MOVES RANDOMLY 
LET Y = @ 

LET Z = 22 + RND(59) 

LET Y = Y¥ + 


IF Y 5% AND NOT A(Z) = 9 THEN GOTO 4929 
rf AU + 7) = @ THEN LET X = 

= @ AND A(z + 6) = @ THEN LET X = 6 
IPL MAND AUG 6 = @ THEN LET X = -6 
IF X = @ AND A(Z - 7) = @ THEN LET X = -7 
IFX= PANDY Z5OT THEN GOTO 4926 
IF X = @ AND Y? 49 THEN GOTO 4598 
LET A(Z) = 9 
GOTO 29 
LET Q = 2 
GOTO 49 


REM PRINT BOARD 
LET UZ = "" 
CLS 


PRINT 
PRINT 
PRINT 
PRINT "ZX80 * 3SI,,, "HUMAN * ";SM 


PRINT 
PRINT , 12345678" 


wee # * 
PRINT ," Zspaces shiftF SshiftT shiftp" 
SUS eS AS 


I* 


PRINT , % A" 3CHRB( 138) 5 "7/58 (62) 3 "/"3N(49) 3 9/"5 
A(36)3"/"3A(23) 5 "shiftqu 

PRINT ," * # # SEAM uRittoee oe 

PRINT ," * # # OF CUS ee "/5A(63)5"/"5A(58) 5 "/%3 

A(37 7)3"7"5A( 243 "shiftQ 

PRINT ," * * # D"5 CHRS( 138) 5ACTB) 5 "/"5AC57) 5"/%5A(44) 
"/"3A(31)9"/ shiftQv 

PRINT ," # # # RY sCHRS( 138 BULAN EN (O4) 5 M/NSA(SA) E75 
A(38)3%/"3A(25) 3 "ahiftQn 

PRINT ," * * * F";CHRS(138)3A(71)5"/"3A(58) 3 "/"3A(45) 


"/7"3A(32)3"/ shiftQn 


9239 
9248 


a0 Eee 
A(39)3"/"3A(26)5" 8 

H"; CHRS (138) 3A(72) 3 "/"5A(59) 5 "/"3A(46)5 
"/"3A(33)3"/ shiftQn 

PRINT ," 4spaces shiftR S8shiftG shiftE" 

oo # HH * 412345678" 

1 THEN PRINT ,,"I WIN" 

IF Q = 2 THEN PRINT ,,"YOU WIN" 

IF Q> @ THEN STOP 

IF MOVE = 1 THEN PRINT ,,,,,"YOUR MOVE WAS TO * ";C% 
IF MOVE = 1 THEN INPUT UZ 

IF MOVE = 1 AND US = "S" THEN STOP 

LET MOVE = 9g 

RETURN 


DIM A(92) 

LET MOVE = @ 

LET Ag = " 

LET Q = 9 

LET SI = 9 

LET SM = @ 

FOR A = 1 TO 92 

LET A(A) = 2 

NEXT A 

FOR A = 23 T0 39 

IF A = 29 OR A = 28 OR A = 27 OR A = 34 OR A = 35 
THEN GOTO 9199 

LET A(A) = 1 

NEXT A 

DIM Y¥(2) 


~ 
a 
- 
=z 
8 
° 
= 
x 


* 


Ix 


PRINT ," * * 


lx 


FOR A = 43 TO 52 

IF A = 47 e A = 48 THEN GOTO 9149 
LET pia) = 

NEXT A 


FOR A = 56 10 72 

IF A = 69 OR A = 61 OR A = 66 OR A = 67 ORA = 68 
THEN GOTO 9189 

LET A(A) = 9 

NEXT A 

PRINT 

PRINT "WILL L HAVE THE FIRST" 

PRINT ,"MOVE? (Y OR N)" 

INPUT PZ 

IF PZ = "Y" THEN GOTO 2999 

GOTO 26 


ASCOT 


Five tiny horses, convincingly disguised as the letters A to 
E, race up the 4K screen and then down again in ASCOT. 
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When they reach the finish line, the moving display freezes 
for a time, showing the horses, and giving each rider points 
for the way he has ridden. Once you’ ve read the results (and 
collected your winnings from your friends), the display 
automatically ‘‘unfreezes’’ and a new race is underway. 
This program is an interesting example of full-screen 
graphics. 


(Note: Lines 10 to 130 are the ‘’Vasey moving display”’ 
which is used in certain other programs in this book. The 
first POKE address in line 30 should be 19900 as given, for 
4K programs. The GOTO destination in line 50 may be 
different in other programs in this book using this routine. 
The routine is copyright © P Vasey, 1981, and may not be 
used as, or as part of, any product or program offered for 
sale or publication.) 


1g REM CDE%$6CDC29581299 1 DICDC295 1863 CDADP 1969819 FE2N1 E4923 
22 1E497 CDES9C823 DBFE3 E38322340965E19FED3 FE3 EECH6192A 
OC4PCBFCCDADS13EF5942BFD352318CA 

29 FOR A = @ TO 67 


38 POKE 19999 + A, 16*(PEEK(16427 + 2*A) -28) + PEEK 
16428 + 2*A) ~ 28 
49 NEXT A 
58 GOTO 9999 
196 POKE 16414, T 
119 POKE 16415, 255 
129 LET XX = USR(19999) 
138 RETURN 
fe Mestad 2 ne 
KE 33*ABS(A ~ 18 1 P 
Bag rerett 9 gibdy PRION» remurbraseo 
*ABS(B - 18 
sa. Gee aera MD 206499 
E 33*ABS(C - 18 
300 POKE 33*ABS(4 3 mp(2) SEND NEARY 200548 
S(D - 18 
je LET E= E- 14 he 19 + PEEK(G) + PEEK (H)*256,41 
POKE 33*ABS(E - 
410 GOSUB app” 18) + 22 + PEBK(G) + PEEK(H)*256,42 
2006 IF A> 35 OR B>35 OR C>35 OR DY Bis ak 
Goro 9599 35 > 35 THEN 


3008 POKE 33*ABS(A - 18) + 19 + PEEK(G) + PEEK(H)* 

256, 
BAL POKE 33*ABS(B - 18) + 13 + PEEK(G) + Peat \ sect Ve 
3026 = POKE 33*ABS(C - 18) + 16 + PEEK(G) + PEEK(I)¥256, 128 
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3939 POKE 33*ABS(D - 18) + 19 + PEEK(G) + PEEK(H)*256,128 
3949 POKE 33*ABS(E - 18) + 22 + PEEK(G) + PEEK(H)*256,128 
3959 GOTO 399 


9069 LET XX = @ 
9965 CLS 

9919 LET A 
9915 LET B 
9929 LET C 
9925 LET D 
9938 LET E 
9935 LET @ 6396 


LET H +1 
9945 LET AZ = CHRS(128) 3; CHRS( 128) 3CHRS( 128) ; CHRS(128) 
9658 LET T = 248 
9969 FOR F = 1 TO 18 


1 
1 
1 
1 
1 
1 


9978 PRINT "shiftA Sspaces *";A$;AS;AS;AS;"* Sspaces shifta" 


998g NEXT F 
9998 GOTO 399 

9560 PRINT ,"THE RACE IS OVER" 

9516 PRINT " * * * * FINAL POINTS: A * "SA; 4 x 
9526 PRINT ,"C * "3G," * x * D #* OSD; * & KH Ee OTR 
9525 LET T = @ epee = 
9538 GOSUB 199 

9558 RUN 9699 


ANTI-HANGMAN 


This, as you've cleverly deduced from the title, is 
HANGMAN in reverse. You think of a word, and the 
computer tries to guess it. When you RUN this program, 
the computer will first ask you how many letters there are in 
the word. Then you'll see CHARACTER? on the screen. 
Input the character you wish to use for blank spaces in your 
word (+, *, - or whatever). The ZX80 will then think of a 
letter. If this letter is in your word, type the number of the 
letter in the word. That is, if your word is APPLE and the 
computer guesses E, respond by typing 5. If the letter is 
wrong, input @. After a correct letter, the computer will 
leave it there until you type @, to allow for double letters. So, 
if it thought P, you’d respond with 2, then NEWLINE, then 
3, then NEWLINE, then @. This 1K game is great fun to play, 
and you'll find the long-suffering ZX80 has a much better 
chance of guessing your word within its 10 goes if you think 
of a long word. 
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19 REM ETAONRISHDLFCMUGYPWBIKQXVZ 








26 LET L = 19 

36 PRINT "LENGTH OF WORD?" 

49 INPUT N 

54 PRINT "CHARACTER?" 

69 INPUT QS 

4 LET Q = CODE(Q%) 

8g DIM A(26) 

98 DIM C(N 

198 DIM G(N 

119 FOR Z = 1 TO 26 

129 LET A(Z) = PEEK (16426 + Z 
139 cee A A ee eS 
149 NEXT Z 

156 LET Z = RND(3) 

166 LET AZ = nana (A(z)) 

178 FOR J = Z% TO 25 

189 LET At) = A(J + 1) 

196 NEXT J 

209 LET A = 9 

219 CLS 

228 PRINT , 

239 FOR Z = 1 TON 

248 PRINT CHRS(G(Z))s3 

258 NEXT Z 

2698 PRINT 

2178 PRINT 

289 PRINT ,"LIVES="3L 

299 PRINT ,1 GUESS * "3AZ 

309 INPUT B 

319 IF B = § THEN GOTO 359 
320 LET A = 1 

330 LET G(B) = CODE(AS) 

349 GOTO 219 

350 LET F « g 

369 FOR Z = 1 TON 

379 IF G(Z) = Q THEN LET F = 1 
389 NEXT Z 

398 IF F = @ THEN PRINT ,"I WIN" 
490 IF F = § THEN STOP 

419 IF A = § THEN LET L = L - 1 
426 IF L> § THEN GOTO 15¢ 
430 PRINT ,"YOU WIN" 


SNAIL RUN 


Four tiny snails crawl (at an ever-increasing speed) across 
your screen from right to left. They carry numbers on their 
backs. Well, they don’t really, but you'll see what we mean 
when you RUN the program. If you feel adventurous, you 
could, | suppose, even bet on the outcome of a race. The 
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routine can be used for tiny cars, or whatever, and if you 
have more than 1K, you can easily extend the program for 
eight or more snails or vehicles. 


LINES 10 TO 40 Vasey moving display. First POKE address 
in line 30 is 172790. 


GOTO 2¢¢ 

POKE 16414, 29¢ 
POKE 16415, 255 

LET XX = asniro7e) 


RETURN 

LET C = g 

LET Ee= g 

LET F = g 

LET D = 9 

LET C = C + ee - 1 
LET D = D + RND(3) - 4 
LET E = E + RND(3) - 14 
LET F = F + RND(3) - 1 
FOR A = 1 TO 28 -C 
PRINT " # " 

NEXT A 

PRINT "shiftT 1 shifta" 
PRINT 

FOR A = 1 TO 28 - D 
PRINT " #* " 

NEXT A 

PRINT "shiftT 2 shifta" 
PRINT 

FORA = 1T0 28-E 
PRINT " * "3 

NEXT A 

PRINT "shiftT 3 shifta" 
PRINT 

FORA = 1 TO 28-F 
PRINT " * "3 

NEXT A 


PRINT "shiftT 4 shifta" 

IF E> 26 ORD) 26 OR C > 26 OR E> 26 THEN STOP 
GOSUB 199 

CLS 

GOTO 24¢ 


JOYBOX 


JOYBOX is a 1K fruit machine that behaves just like the 
ones you see lurking in pubs, except the money you win and 
lose goes nowhere except into the ZX80’'s variables store. 
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This program pays out with about the same frequency as a 
real machine, with the contents of the reels, and the chance 
with which they come up, stored in the REM statement in 
line 10. Make sure you input the program exactly as listed, 
or you'll end up with some strange fruit. The score reel is the 
middle one of the three displayed, except for + BAR + pays 
out when there are three in a row in any direction. You have 
to pay for each go. Input @, then NEWLINE to pull the 
handle. If the HOLD option comes up, input the number(s) 
of the reel(s) you want to HOLD, with NEWLINE in between 
each one, then @ to get things underway again. 


1p REM XCHERRYLEMON. .PLUM. ORANGE*BELL*999999111111 
2222223333344 
2g DIM A(8) 
39 DIM H(5) 
48 LET A = 269 
58 LET B = @ 
6¢ FOR Z = B T0 5 
W@ LET H(Z) = @ 
8g NEXT Z 
99 FOR Z = @ TO 8 
196 IF H(Z - 3*(Z/3)) = 1 THEN GOTO 12¢ 
1M ae ye pee eat ( RND(25))- 28 
= 4 THEN LET H( Z - 3*(Z + 2 
saa ae (2/3) +3) = 1 
149 LET W = @ 
158 IF A(3) = A(A) THEN LET W = 19 
169 IF A(4) = A(5) AND W = 19 THEN LET W = 19*A(3) 4 19 
178 IF H(3)*(4)*H(5) = 1 THEN LET W = 199 
189 LETAsA+W-5 
198 FOR Z = @ TO 2 
209 LET H(Z) = @ 
219 NEXT Z 
220 LET H = 9g 
238 IF A ¢ 69 + RND(28f) THEN LET H = 1 
248 CLS 
250 PRINT 
269 FOR Z = 9 TO 8 
278 PRINT " * # & MS 
269 FOR J = 2 To 7 
298 PRINT CHRS(PEEK(16426 + 6*A(Z) + J); 
308 NEXT J 
318 IF 3*((Z + 1)/3) = Z + 1 THEN PRINT 
328 IF 3*((Z + 1)/3) = Z + 1 THEN PRINT 
330 NEXT Z 
349 PRINT 
350 FOR Z = @ TO 2 
369 IF H(Z) = 1 THEN PRINT " * * ® = 4HELD#"; 
378 IF H(Z) = @ THEN PRINT " O'spaces"; 


389 NEXT Z 


399 FOR Z= 1705 

490 PRINT 

419 NEXT Z 

429 IF W> @ THEN PRINT ,"PAYS * "3W 
438 PRINT ,"YOU NOW HAVE * "3A3Tipn 
449 IF H = 1 THEN PRINT "HOLD OR * "3 
450 PRINT "START" a 
469 INPUT N 

418 LET B = 3 

48¢ IF H*N = @ THEN GOTO 69 

499 LET H(N - 1) = 1 - H(N -1) 


509 GOTO 249 


CRAPS 


In THE COMPLETE BOOK OF DICE GAMES, Skip Frey 
describes Craps as “‘the premier dice game’’. According to 
Mr Frey, ‘‘it is played everywhere from back alleys to posh 
casinos in Las Vegas and Monte Carlo’’. Despite this 
glowing description, it can become a very dull game indeed 
when played with a computer. After all, to play the game 
you just roll dice, and if you have your trust ZX80 doing this 
for you, there isn't much else to do. Therefore, we've jazzed 
up the program a bit, to save you falling asleep at the 
keyboard. This Craps program gives you a starting stake of 
£20, and then adds to it, or takes away, in accordance with 
your luck with the dice. 


OFFICIAL TERMS FOR CRAPS: 


NATURAL — A7 or an 11 on the first roll is a 
NATURAL. Roll this, and you win. 


CRAPS — A2,3 or 12 on the first roll is CRAPS. 
Roll this, and you've lost. 


POINT — A4, 5, 6, 8, 9 or 10 on the first roll 
becomes your POINT. In the program, 
the variable E is your point. 
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If you don’t roll a natural or craps, you continue to roll until 
you “make your point’. In this game, see line 279, you win 
the grand sum of £25 if you make your point. However, and 
this is a big however, if you throw a 7 before you make your 
point, you lose (line 120). The program subtracts £3, plus a 
pound for every roll of the dice you've made in that game. 
So long as you manage to end a game with £1 or more, the 
ZX80 will offer you a new game on this 1K program. 


5 LET M = 29 

1A LET A = 9 

2g LET E = @ 

36 PRINT ,"PRESS N/L TO ROLL" 
4¢ INPUT AZ 

5¢ GOSUB 329 

6g LET B = RND(6) 

@ LET C = RND(6) 

8¢ LET D=B+C 

98 LEFT A =A +41 

95 IF A = 6 THEN CLS 

97 IF A = 6 THEN LET A = 2 
199 IF A = 1 THEN GOTO 159 
119 IF D = E THEN GOTO 279 
126 IF D = 7 THEN GOTO 399 


138 PRINT “THE DICE CAME UP * ";By" * "3C, "TOTAL * "3D 
148 GOTO 49 

158 IF D = 7 OR D = 11 THEN GOTO 199 

169 IF D <4 OR D = 12 THEN GOTO 219 

179 LET E = D 

189 GOTO 139 

199 PRINT "YOU ROLLED * "s;Ds" * SO YOU WIN® 

195 LETM=M+5 +A 

2008 GOTO 229 

219 PRINT "FATE GAVE YOU * "3;D;" * SO YOU LOSE" 
226 PRINT "YOUVE GOT £"3M_ 

222 IF M < 1 THEN STOP 

225 PRINT ,,,,,"ANOTHER GAME?" 

238 INPUT AZ 


248 CLS 
258 IF NOT AZ = "NO" THEN GOTO 19 
269 STOP 


278 PRINT "THAT TIME YOU GOT * "3D 

288 LETM=M45+A 

2998 GOTO 226 

300 PRINT "FOOL, YOU BLEW IT BY ROLLING * "3D 
395 LETM=M-3-A 

319 GOTO 22% 

329 FOR F = 1 TO 199 

339 NEXT F 

349 RETURN 


NOGOMOKU 


This version of the allegedly oriental game of GOMOKU is 
called VOGOMOKU because it does not play particularly 
well (something of an understatement!). However, it is an 
interesting game, in which the entire board and state of play 
is stored in a REM statement, which changes as play 
progresses. The aim of this 1K (on the old ROM, it needs 
more memory on the new ROM machines) NOGOMOKU is 
to get five in a row, either horizontally, vertically or 
diagonally. There is no facility in the program for the 
computer to know when the game is over, nor who has 
won. 


You can, at any time, terminate play by entering an ‘’X’’ 
when the computer gives you a move prompt. Just input 
the number, as indicated below, relating to the square on 
which you wish to place your piece. If you get tired of 
matching your wits with the ZX80, you can change the 
game to AUTONOGOMOKU by deleting line 20, changing 
line 150 to LET A = RND(49) and line 140 to LET C = 
RND(1@). Then add: 175 INPUT A$. Examine the board 
after each two moves, and let the winner be the first to get 
three in a row in any direction. 


The key for moves: 
LL 2-3 “a oS 6 
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REM (49 full stops) 

RANDOMISE 

FOR E = 16427 TO 16475 

PRINT bk, 18 

NEXT E 

LET D = 

PRINT 

PRINT 

PRINT , 

FOR E = 16427 TO 16475 

LET D= D+ 1 

PRINT CHRS(PEEK(E));" * "; 

IF 7*(D/7) = D THEN PRINT yy555555 

NEXT E 

INPUT A 

IF A<14 OR AD49 OR NOT PEPK(16426 + A) = 18 
THEN GOTO 158 

POKF 16426, 188 

CLS 


QAPLVN Tt 
DRGs  auie a eee OS 
Ada ga28s 

Searmren~S 

2S ye 

ag 





HELEN’S BOOGIE 


This 1K game is a kind of snakes and ladders on a board of 24 
squares. You throw a die which determines how many 
squares along the board you advance. 


1966 
1970 
1989 


DIM A(2) 

RANDOMISE 

LET A(1) = @ 

LET A(2) = @ 

FOR 2 = 1 TO 2 

GOSUB 1999 

IF J < @ THEN LET J = @ 

PRINT "PLAYER * "323", * YOU THREW A * "yJ 
PRINT "YOU ARE NOW ON * "3A(Z) 

FOR W = @ TO A(Z) 

PRINT _ SeHAL S28) CHRS(129) ;"shifta"; 
NEXT 

PRINT. 

PRINT 

NEXT Z 

IF A(1) Bes OR A(2) > 23 THEN GOTO 2969 
INPUT A 


PRINT "PLAYER * "3 -1*(A(1)> A(2)) | - 2*(A(2)> A(1))3 
" * WINS, WITH 

PRINT ,ABS(A(1) - A(2)J"1733" * routs 

POKE 16421, 24 

STOP 


FOR G = 1 TO RND(25) 

LET J = RND(6) - RND(2) 

NEXT G 

LET A(Z) = A(Z) + J 

IF.A(Z) = 5 OR A(Z) = 17 THEN GOTO 1999 

LET Y = -4*(A(Z) = 2 OR A(Z)= 14) 4+ Pe = 3 OR A(Z) 
= 15) + 3*(A(Z) = 4 OR A(Z) = 
(A(Z) = 7 OR A(z) = 1) + (nmpta}s 
ee = 18 OR A(Z) = 22) 

LET A(Z) = A(Z) 4 

IF A(Z) < @ THEN a A(2Z) = 

RETURN 


Siege 


This is a very frustrating game which makes very effective 
use of the 1K on an old ROM ZX80. You are a soldier 
(actually, you're the letter X, but this is a ZX80, not an IBM 
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HORROR 2017) trying to wend your way through army 
territory (translation: Trying to move from the right to the 
left of the screen) without either landing on top of an enemy 
(a black blob) or accidentally bumping into one. But it is a 
game you cannot win. No sooner do you make it across the 
enemy territory when you’re whisked back to the start, to 
begin your tireless trek again, through an ever-increasing 
enemy hoard. When you finally die, you'll be given a score 
which is related to how long you've survived. Anything 
higher than 132 is very good. You move by entering a 7, 
then NEWLINE to move up, 6 to move down and 5 to move 
forward. 


19 GOSUB 199 


29 IPF PEEK (C*33 + D+ 1 + PERK(Z) + PEEK (Z + 1)*256) = 61 


OR PEEK (Y¥*33 + X + 1 4 PEEK(Z) + PEEK (Z + 1) 
*256) = 128 THEN GOTO 179 


39 POKE Y*33 + X + 1 + PEEK(Z) + PEEK(Z + 1)¥*256, 61 
49 POKE C*33 + D+ 1 + PEEK(Z) + PEEK(Z + 1)*256, 128 
50 INPUT AZ 

69 LET K = K + 1 

10 POKE Y*33 + X + 1 + PEEK(Z) + PEEK(Z + 1)#256, @ 
8g IF AS = "5" THEN LET X = X - 1 

99 IF AS = "7" THEN LET Y = Y - 1 

19¢ IF AZ = "6" THEN LET Y = Y + 1 


119 LET CG = RND(8) 

= RND(39) 
139 IF X<2 THEN LET X = 31 
149 IF Y¢ 2 THEN LET Y = 2 
158 IF Y)9 THEN LET Y = 8 


178 PRINT "YOUR SCORE: * "3K 
186 STOP 

198 FOR J = 1 TO 19 

298 PRINT 4,5, 

218 NEXT J 


229 LET X = 31 
238 LET Y = 2 
249 LET Z = 16396 
258 LET C = 1 
2698 LET D = 1 


278 RETURN 





BATTLE 


This game pits your skill against five marauding black blobs. 
At the beginning of the game, you — and the lumbering 
black blobs — are placed randomly within a frame on the 
screen. You move by entering a letter (N for north, E to 
move east and so on or Q if you want to stop the game). If 
you wish to keep moving in the same direction, just press 
NEWLINE when the prompt appears. One of the black 
blobs will move each. You are the dollar sign (8) and your 
million, should you decide to accept it, is to try and wipe out 
all the black blobs by landing on top of them before you've 
used up your 20 moves. 


However, when you get near a blob, you are in danger of it 
landing on top of you. You are safe so long as you stay more 
than three spaces away from a blob. If a blob lands on top of 
you, the game is generally over. 


Your score is shown to the left of the frame (the top 
number), while the bottom number counts off your moves 
(showing the last digit only). The game is complicated by 
the fact that the blobs, once erased, refuse to stay erased, 
and will return at a random time to plague you again. If a 
blob lands on you, you are — as we've said — generally done 
for, but a benevolent line in the program (91@)allows you to 
escape from time to time. 


A further complication is caused by a coding trick which 
makes youvanish at random intervals, so you have to make 
your next move “‘blind’’. You will, however, always appear 
at the next move, unless you’ve been squashed. 


18 - 138 VASEY MOVING DISPLAY (A = 19699, line 5¢ GOTO 229) 
208 POKE Y * 33 + X + 1 + PEEK(16396) + PEEK (16397)*256, K 
219 RETURN 

228 LET XX = @ 

238 GOTO 9998 

499 PRINT "DIRECTION? (N S E W)" 
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LET Y = 11 

LET MOVE = MOVE + 1 

IF MOVE = 29 THEN LET T = 9 
IF MOVE = 29 THEN GOSUB 199 
IF MOVE = 29 THEN GOTO 9599 


LET X = 3 

LET K = CODE(STRS(SI))+ 128 

GOSUB 299 

LET Y = 13 

IF MOVE < 19 THEN LET K = CODE(STRS(MOVE)) + 128 

IF MOVE>9 THEN LET K = CODE(STRS(MOVE - 9)) + 128 
GOSUB 299 

INPUT BZ 

IF BS = "" THEN LET BZ = CZ 

LEY Y= A 


= "Q" THEN STOP 
= "N" THEN LET A 
= "S$" THEN LET A 
= "E" THEN LET B 
= "W" THEN LET B 


nuna 
wore 
++ 
oo ow 


¢ 9 THEN LET B 
? 21 THEN LET B 
< 6 THEN LET A 
> 
c 


anogd 
np 
= 


8 
2g 
TO 5 
1h ARD X(0) = B THEN LET SI = SI + 4 


e THEN LET A 


GOSUB 2¢9 

GOSUB 199 

LET E = RND(5) 

LET K = 9 

LET Y = X(E 

LET X = X(E 

GOSUB 299 

LET Y(E) = Y(E) + RND(3) - RND(3) 
LET X(E) = X(B) + RND(3) - RND(3) 
IF Y¥(E)<9 THEN LET ¥(E) = 9 

IF X¥(E) ) 16 THEN LET Y(E) = 16 
IF X(E)€ 9 THEN LET X(E) = 9 

IF X(E)> 29 THEN LET X(E) = 29 
LET Y = Y(E) 

LET X = X(E) 

LET K = 128 

GOSUB 29¢ 

GOSUB 199 

FOR C = 1 T0 5 


IF ¥(C) = A AND X(C) = B AND RND(3) = 1 THEN GOTO 95¢¢ 
NEXT C 
GOTO 599 


9969 ~=DIM x¥(5) 

9995 + LET SI = @ 

9919 LET MOVE = - 1 

9915 DIM X(5) 

9928 LET CZ = "EN 

9925 LETT = 249 

9938 FORA = 1 TO 5 

9835 PRINT gy, 

9949 NEXT A 

9958 PRINT ,"(15 shift w)",, 

9969 FORA = 1 TO 12 

9970 PRINT , "(shift Q 13 spaces)"s;CHRS(139),, 

9988  GOSUB 199 

9998 NEXT A 

9198 PRINT ,"(15 shift G)",, 
PRINT 


9115 LET K = 128 
9128 FORA = 1 T0 5 


9138 LET Y(A) = 7 + RND(19) 
9149 LET X(A) = 8 + RND(12) 
9142 LET Y = ah 
9145 LET X = X(A 


9158  GOSUB 269 

9168  GOSUB 199 

9176 NEXT A 

9188 LET A = 7 + RND(19) 
9185 LETY=A 

9198 LET B= 8 + RND(12) 
9298 LET X= B 

9218  GOSUB 299 

9228 GOTO 499 


9598 CLS 
9505 PRINT "THE BATTLE 18 OVER" 
9519 PRINT 


9512 PRINT "SCORE * "SSI 
9515 PRINT ,"IN x "sMOVE;" » MOVES 
9517 PRINT 





LOGICA 


LOGICA lets you zero in on a target number chosen 
between one and 60, by giving you clues in the form of 
letters of the alphabet. Play this one a few times, and you'll 
learn how to interpret the computer responses to your 
guesses. Note how RUN n is used in this 1K game, and how 
the ‘‘secret number’’ and other information is stored in a 
non-volatile manner in the REM statement. 
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REM 72? 
POKE 16427, 1 

RANDOMISE 

POKE 16428, RND(69) 

GOTO 126 

PRINT , PEEK (16429);" * IS WRONG" 

PRINT 

PRINT " * * HERE IS A HINT:" 

PRINT 

FOR A = 1 TO ABS(PEEK(16428) - PEEK(16429))/2 
PRINT CHRS(A + 37), 


NEXT A 
PRINT 

PRINT " * * OK BEACH BOY, WHAT NUMBER," 
PRINT " * ® BETWEEN 1 AND 69, AM I" 
PRINT " ® * HOLDING IN MY 28% CHIP?" 
PRINT 


PRINT " * * THIS IS GUESS NUMBER * "; PEEK (16427) 
POKE 16427, PEEK(16427) + 1 

INPUT B 

CLS 

IF B = PEEK(16428) THEN RUN 396 

POKE 16429, B 

GOTO 5¢ 

CLS 

PRINT ,"YOU ARE RIGHT" 

PRINT 

PRINT "I WAS THINKING OF * ";PRIK(16428) 

PRINT 

PRINT "YOU GOT If IN JUST * ";PEFK(16427);" * GUESSES" 
INPUT AZ 

CLS 

IF AS = "" THEN RUN 


FALLEN COMRADES 


FALLEN COMRADES is essentially a 1K Russian Roulette 
program for three people. Enter three names, and then leave 
your life, and the lives of your friends, in the hands of the 
Sinclair random number generator. If you've got more 
memory, you can easily expand the game for a whole 
baseball team of comrades. 


RANDOMISE 

LET E% = " * SURVIVES" 

PRINT "NAME OF PLAYER 17" 

INPUT AZ 

PRINT ,"AND 27" (note: get the AND from the ‘shift 
INPUT BZ 

PRINT ,"AND 32" 

INPUT CZ 


99 

199 
119 
126 
139 
149 
15¢ 
169 
179 
189 
199 
208 
216 
228 
236 
248 
250 
266 
278 
289 
298 
590 
319 
329 
339 
340 
358 
369 
370 
388 
396 
400 


419 
429 
439 
449 


LET Z = @ 

CLS 

LET Z=Z + 1 

PRINT 

PRINT ,"PRESS NEWLINE TO FIRE" 
INPUT DZ 

PRINT 

PRINT 

PRINT AZ, BS, GZ 

PRINT 

IF AZ = "" THEN GOTO 249 

LET A = RND(19) 

IF NOT A = 5 THEN PRINT "CLICK"; 
IF A = 5 THEN PRINT "BANG"; 

IF A = 5 THEN LET AZ = "™ 

IF BS = "" THEN PRINT , 

IF BS = "" THEN GOTO 3f¢ 

LET B = RND(19) 

IF NOT B = 5 THEN PRINT, "CLICK"; 
IF B = 5 THEN FRINT ,"BANG"; 

IF B = 5 THEN LET BA = "" 

IF CZ = "" THEN GOTO 359 

LET C = RND(19) 

IF NOT C = 5 THEN PRINT ,"CLICK" 
IF C = 5 THEN PRINT ,"BANG" 

IF C = 5 THEN LET CZ = "" 


PRINT 
PRINT 
IF AZ = "" AND BS - "" THEN PRINT CS; hZ 
IF AZ = "" AND CZ = "" THEN PRINT BS; EZ 


IF BZ = "" AND CH = "" THEN PRINT AZ;EZ 

IF (CODE(AZ) + CODE(BZ) = 2) OR (CODE (AZ) + CODE(CZ) = 2) 
OF (CODE (BS) + CODE(C%) = 2) THEN STOP 

PRINT 

PRINT ,"THIS IS ROUND NUMBER * "32 

INPUT 23% 

Goro 199 


VENUS LANDER 


Forget about lunar landers. This one is, for some reason, set 
above misty Venus. Once you’ve managed to land your 
tumbling space craft successfully a number of times, make 
things more difficult by reducing your starting fuel (line 330) 
or by changing your initial speed (line 340). Venus Lander 
runs in 1K on an old ROM ZX80. 


GOSUB 329 

CLS 

PRINT ,"HEIGHT", "FUEL", "SPEED" 
PRINT ,H,F,S 

FOR A = 1 TO 16 - H/1999 
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5¢ PRINT 


69 NEXT A 

18 FOR B = 1 TO 114 + RND(5) 

8g PRINT " # "ts 

99 NEXT B 

109 LET J = RND(2) 

119 IF J = 1 THEN PRINT "(shift F shift G shift D)" 

128 IF J = 2 THEN PRINT "(shift R shift T shift BE)" 

139 FOR A = 16 - H/19@ TO 16 

149 PRINT 

158 NEXT A 

168 PRINT "(random set of 32 graphics symbols to represent 
the surface of Venus)" 

179 INFUT T 

189 IF F - T <1 THEN LET T = 9 

199 LETS = S + S/19 +5 -T 

209 LETH =H - 93 

219 IF H}> 169% THEN GOTO 299 

228 LET F = F - T/3 

238 IF H> @ THEN GOTO 29 

249 IF S>19 THEN GOTO 279 

258 PRINT "SUCCESSFUL LANDING * ";F*233" * POINTS" 

269 STOP 

279 PRINT "CRASH LANDING, FORMING * "3; S #* RND(7), 

“METRE GRATER" 

288 STOP 

298 CLS 

300 PRINT ABS(S)3" - ESCAPF VELOCITY space shift F shift G 


shift D space"; 
319 GOTO 369 
329 LET H = 1589 + RND(199) 
330 LET F = 9% + RND(75) 
346 LET S = 19 + RND(19) 
358 RETURN 


BERMUDA TRIANGLE 


BERMUDA TRIANGLE is an excellent 4K program to 
demonstrate ‘‘machine _ intelligence’. BERMUDA 
TRIANGLE owes debts to both chess and draughts/ 
checkers. ..and also, of course, to that famous holiday 
resort where people, planes and ships have mysteriously 
vanished. You can move one square at a time in any 
direction on the triangular board. You move by just 
inputting the piece you want to move, in the form B4 then 
NEWLINE, then the square, say B3, you want to move to. 
When the screen clears, you'll see your piece in its new 
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position (you are the letter ‘‘O’’) and the computer's 
response (it is the ‘’X’’). You capture by landing on top of 
the computer’s pieces. First player to capture four of the 
opponent's pieces wins. Although it takes a while to set up 


7 
hl 
Nh 


YERE & 





the board at the start of the game, the computer's response 
time is generally very quick. Few moves should take more 
than 20 seconds, and most will take less. 
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GOSUB 
CLS 

PRINT 
IF SI 
IF SM 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 
FOR J 
PRINT 


9999 


= 4 THEN LET Q = 1 
= 4 THEN LET Q = 2 
"SCORE * * ME * "sSI, "YOU * "38M 


ee ee 


7a. + 166); CHRS(128)3 
TO X 
CHRS(A(89 - 9*X - J))3 
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NEXT J 
PRINT CHRS(128) 

NEXT X 

PRINT ,CHRS(128)3 

FOR J = § T0 8 

IF J = 9 THEN PRINT CHRS( 128); 

IF J> 6 THEN PRINT CHRS( J + 156); 

NEXT J 

PRINT CIRS( 128) 

PRINT , 

FOR J = 1 TO 11 

PRINT CHRS(128); 

NEXT J 

PRINT 

IF Q = 17 THEN PRIN’ ,"I CONCEDE THE GAME" 
IF Q = 1 THEN PRINT ,,,"I WIN" 

IF Q = 2 THEN PRINT ,,,"YOU WIN" 

IF Q> @ THEN STOP 

PRINT 


IF CZ > "" THEN PRINT "YOUR LAST MOVE WAS TO * "3C% 
PRINT "THIS MOVE?" 

FROM? (LETTER, NUMBER)" 

INPUT AZ 

IF AZ = "S" THEN STOP 

PRINT Af3;" * TO? (LETTER, NUMBER)" 


INPUT BZ 

LET CZ = BZ 

LET G(1) = 451 - 9*CODE(AS) - CODE(TLS(AS) ) 
LET G(2) = 451 - 9*CODE(BS) - CODE(TLS(Bz) ) 
IF A(G(2)) = 189 THEN LET SM = SM + 1 

LET saith = 159 

LET A(G(2)) = 189 


REM COMPUTER JUMPS 
LET X = @ 
FOR Z = 19 TO 8 


IF NOT A(Z) = 189 THEN GOTO 3139 

IF A(Z + 9) = 189 THEN LET X = 9 

Fe Rae aye ee ee ee 
IF X = # AND A(Z - 8) = 18M THEN LET X = -8 
IF X = @ AND A(Z + 19) = 189 THEN LET X = 19 
IF X = § AND A(Z - 19) = 18% THEN LET X = -19 
IF X = § AND A(Z - 9) = 189 THEN LET X = -9 
IF X = @ AND A(Z + 1) = 169 THEN LET X = 1 
IF X = § AND A(Z - 1) = 189 THEN LET X = -1 


IF NOT X = @ THEN GOTO 31598 
NEXT Z 


IF X = § THEN GOTO 3189 
LET A(Z) = 159 

LET A(Z + X) = 189 

LET SI = SI + 1 

GOTO 549 

LET ¥ = g 

LET X = @ 

LET Z = 19 + RND(79) 


3205 
3207 
3219 


3230 


3234 


3235 
3237 


3249 


LET Y= Y + 1 

IF NOT A(Z) = 189 AND Y 4@ THEN GOTO 3299 1 

IF A(Z) = 189 AND A(Z + 8) = 158 AND NOT A(Z + 16) 
= 189 AND NOT A(Z + 17) = 188 AND NOT A(Z + 7) 
= 189 AND NOT A(Z - 2) = 188 AND NOT A(Z - 1) 
= 189 AND NOT A(Z + 9) = 189 AND NOT A(Z + 18) 
= 189 THEN LET X = 8 

IF X = @ AND A(Z) = 189 AND A(Z + 9) = 158 AND NOT 
A(Z + 19) = 188 AND NOT A(Z + 8) = 188 AND NOT 
A(Z + 18) = 1898 AND NOT A(Z + 19) = 189 AND NOT 
A(Z + 17) = 188 AND NOT AE - 1) = 189 AND NOT 
A(z + 1) = 189 THEN LET X = 9 

IF SI * SM = # AND RND(4) > 1 OR RND(3) > 1 THEN 
GOTO 3259 

IF Z € 29 THEN GOTO 3259 


IF X = @ AND A(Z) = 189 AND A(Z - 8) = 158 AND NOT 
A(Z - 16) = 184 AND NOT A(Z - 17) = 189 AND NOT 
A(Z - 7) = 189 AND NOT A(Z + 2) = 18M AND NOT 
A(Z + 1) = 188 AND NOT A(Z - 9) = 189 AND NOT 
A(Z - 18) = 18f THEN LET X = - 8 

IF X = @ AND A(Z) = 189 AND A(Z - 9) = 158 AND NOT 
A(Z = 168) = 188 AND NOT A(Z - 8) = 188 AND NOT 
A(Z - 18) = 188 AND NOT A(Z - 19) = 189 AND NOT 
A(Z - 17) = 189 AND NOT A(Z + 1) = 189 AND NOT 
A(Z - 1) = 189 THEN LET X = -9 


IF X = # AND Y (19M THEN GOTO 3299 

LET Y = 9 

LET Z = 19 + RND(79) 

LET Y = Y + 1 

IF NOT A(Z) = 189 AND Y € 19M THEN GOTO 3299 
IF A(Z + 8) = 15% THEN LET X = 8 

IF X =f AND A(Z - 8) = 159 THEN LET X = - 8 
IF X = @ AND A(Z - 9) = 159 THEN LET X = - 9 
IF X = @ AND A(Z + 19) = 159 THEN LET X = 19 
IF X = @ AND A(Z - 19) = 158 THEN LET X = - 19 
IF X = @ AND ae 1) 

IF X = @ AND A(Z + 1) = 159 THEN LET X 

IF NOT X = @ THEN GOTO 8669 

IF Y 219M THEN GOTO 3299 


-+hiet 


= 158 THEN LET X = - 1 
= 1 


REM ADMITS DEFEAT 
LET Q = 17 


LET A(Z) = 156 
LET A(Z + X) = 189 
GOTO 5¢¢ 


DIM A(195) 
LET Q = @ 

LET SI = @ 
LET SM = @ 
DIM G(2) 


FOR B = 1 TO 195 
LET A(B) = 9 
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9978 NEXT B 
9¢8¢ FOR B = @ TU 7 
9999 FOR R = @ TO B 
9198 LET A(8@ - 9*B - R) = 159 


9119 NEXT R Y 
gia os 

913 LET A(71) = 189 ~ 
9149 «LET A(35) = 180 Oh 
9158 LET A(62) = 189 d 

916¢ LET A(53) = 189 

9176 LET A(44) = 188 

9169 FOR Z = 11 TO 15 } 


9196 LET A(Z) = 189 

92098 NEXT Z 

9219 LET CZ = "" Co 
9226 RETURN 


PICASSO 


Here’s your chance to draw pretty pictures in 1K on your TV 
screen, using POKed graphics under cursor control. Pick 
the direction of the line you want to draw, then press 
NEWLINE. Change direction by entering the designated 
key (see below) then press NEWLINE over and over again. 
The ZX80 will automatically choose the most appropriate 
graphics character for the direction of the line you're 
drawing. The line will continue in the designated direction 
until you press another key. This table shows the directions 
away from the centre that you'll move if you input the key 
before pressing NEWLINE: 





19 GOSUB 179 


29 POKE Y¥*33 + X + 1 + PEFK(7,) + PEFK(Z + 1)*256, K 
30 LET PS = AZ 

49 INPUT AZ 

58 IF AZ = "" THEN LET AZ = Pg 

6% LET A = CODE(AZ) 

0 IF A = 34 OR A = 57 OR A = 35 THEN LET Y = Y - 1 
89 IF A = 35 OR A = 51 OR A = 39 THEN LET Y= Y 414 
9 IF A = 47 OR A = 51 OR A = 47 THEN LET X = X41 


199 IF A = 39 OR A = 44 OR A = 57 THEN LET X = X ~ 1 

119 LET K = -8*(A = 39 OR A = 35) -136*(A = 47 OR A = 57) 
-7*(A = 34 OR A = 51 OR A = 44 OR A = 58) 

12g IF X€2 THEN LET X & 2 

138 IF X) 31 THEN LET X = 31 

149 IF Y 42 THEN LET Y = 2 

159 IF Y> 14 THEN LET Y¥ = 14 

16g GOTO 2g 

178 FOR J = 1 TO 15 

189 PRINT 4,5, 

199 NEXT J 





200 LET X = 16 
218 LET K = 6 
228 LET Y = 7 
230 LET Z = 16396 


248 LET Ag = "" 
250 RETURN 


CHEMIN DE FER 


Baccarat was first introduced into France from Italy in about 
1490, during the reign of Charles VIII. It is most unlikely, 
historians say, that Charles played it on a ZX80. The Italian 
game was called Baccara, and this game — Chemin De Fer 
—is a distant cousin of that old favourite. ZX80 Chemin De 
Fer is based on a dice version of the casino game which is 
usually played with cards. You and the ZX80 (the “banker’’) 
roll five dice each. If any die comes up 2 or 5, it must be 
rolled again. You add the pips on dice which did not come 
up 2 or 5, and then add to this the total of the pips from the 
dice you've rolled again. The aim is to get as close as 
possible to 9, or to get a two-digit number ending in 9. The 
program automatically strips a two-digit number down to 
its final digit. RUN it a few times, and you'll begin to see why 
this game is so popular. The program allows 9 winning 
games, with dead-heats (or ‘‘stand-offs’’) not counted. The 
winner is the player with the most games out of 9. The game 
as listed needs 2K. To run it in 1K, just add a CLS after each 
INPUT AS, except the last one, which already has one. 


1g LET B1 = @ 
20 LET P1 = 6 
39 GOTO 34¢ 

49 LET D = 
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LET C = @ 

FOR G = 1 TO 5 

LET A = RND(6) 

IF A = 2 OR A = 5 THEN LET C=C + 1 
IF A = 2 OR A = 5 THEN LET A = @ 
PRINT A;" * "3 

LET D=D+#4A 

NEXT G 

PRINT 

PRINT D, 

IF D> 9 THEN LET D = ND - 19 

PRINT D 

IF D>) 9 THEN LET D = D - 19 

PRINT "TOTAL ON FIRST ROLL IS * "3D 


IF D = 9 THEN PRINT ,"LA GRANDE" 

IF D = 8 THEN PRINT ,"LA PETITE" 

IF D = 7 THEN PRINT , "NATURAL" 

IF C = § OR D=7 OR D = 8 OR D = 9 THEN RETURN 


PRINT "MUST ROLL * "303" * AGAIN" 
FOR A = 1 TOC 

LET E = RND(6) 

IF E = 2 OR E = 5 THEN LET E = @ 
LET D= D+ E 

NEXT A 

PRINT D, 

IF D > 9 THEN LET D = D - 16 
PRINT D 

IF D> 9 THEN LET D = D - 19 
RETURN 

PRINT , "BANKER" 


GOSUB 49 

PRINT "FINAL TOTAL * "3D 
INPUT AZ 

LET J = D 

PRINT ,"PLAYER" 

GOSUB 4¢ 

INPUT AZ 

PRINT , "BANKER", "PLAYER" 
PRINT, J,D 

IF J = D THEN PRINT ,"STAND-OF 
IF J = D THEN GOTO 519 

IF J > D THEN PRINT "BANKER"; 


IF J > D THEN LET B1 = B1 + 1 
IF J < D THEN PRINT "PLAYER"; 
IF J < D THEN LET P1 = P1 + 1 
PRINT " * WINS" 

PRINT ,"TOTALS" 

PRINT ,B1,P1 

IF B1 + P1 = 9 THEN STOP 
INPUT AZ 

CLS 

GOTO 34¢ 





NOUGHTS & CROSSES 


Nearly everyone knows how to play this game. Moving 
alternately, players put either a zero or a cross in a position 
ona3 X3 grid, trying to get three in a row in any direction. In 





this game, the computer always goes first, and unsporting 
thing that it is, always hogs the middle square. There is no 
provision in this program for the player to win. The best you 
can do is draw. At first sight, NOUGHTS AND CROSSES 
might seem a relatively easy game to program, but in fact it 
is not simple at all. And it is more difficult to write a fallible 
program than it is to write a game which is virtually 
unbeatable. According to COMPUTERS, THEIR IMPACT 
AND USE, by Robert E Lynch and John R Rice, there are 
362,800 possible different games of noughts and crosses. 
This program will play 40,320 of them. You move by 
inputting the number of the square you want to put your 
mark in. A key to the squares appears next to the board. The 
programs needs more than 1K. 
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DIM A(9) 

LET Q= 9 

FOR A = 1 T0 8 

LET A(A) = 128 

NEXT A 

LE! TR = 9 

GOSUB 1999 

LET TR2 = TR 

LET TR = (TR + 1) - 8*(TR/8) 

LET TR1 = TR 

GOSUB 199¢ 

IF TR = TR + 4 - ee + 3)/8) THEN GOTO 169 
LET TR = TRi + 4 - 8*((TR1 + 3)/8) 
LET Q = 2 

GOTO 1999 

LET TR = TR1 + 2 - 8*((TRI + 1)/8) 
LET TR1 = TR 

GOSUB 1999 

IF TR = TR1 + 4 - 8*((TR1 + 3)/8) THEN GOTO 259 
LET TR = TRI + 4 - 8*((TR1 + 3)/8) 
LET Q = 2 

GOTO 1999 

IF NOT 2*(TR2/2) = M2 THEN GOTO 298 
LET TR = TR1 + 7 - 8*(TR1 + 2)/8) 
LET Q = 2 

GOTO 1999 

LET TR = TR1 + 3 ~ 8*((TR1 + 2)/8) 
LET TR1 = TR 

GOSUB 199¢ 

IF TR = TR1 + 4 - 8*((TR1 + 3)/8) THEN GOTO 369 
LET TR = TR1 + 4 - 8*((TR1 + 3)/8) 


LET Q= 2 
GoTo 1999 
LET TR = TRI + 6 ~ 8*((TR1 + 5)/8) 
LET Q= 1 

(NOTE: You can get this to run 
CLS in 1K by deleting all the blenk 
PRINT PRINT lines, ond compressing 
PRINT the PRINT statements. ) 
PRINT 


PRINT ,"MY MOVE * "3TR 
LET A(TR) = 189 


PRINT 

PRINT ,"4 #* 2 * 3",CHRB(A(1))3" * "sCHRS(A(2))3" 
CHRS(A(3) ) 

PRINT 

PRINT ,"8 * 9 * 4",CHRB(A(8))3" * "3CHRS(A(9)) 3" 
CHRS(A(4)) 

PRINT 

PRINT ,"7 * 6 * 5",CHRS(A(7))3" * "sCHRS(A(6)) 5" 
CHRB(A(5)) 

PRINT 


IF Q = 1 THEN PRINT ,"ITS A DRAW" 
IF Q = 2 THEN PRINT ," * * I WIN" 
IF Q> §@ THEN STOP 

PRINT ,"YOUR MOVE, HUMAN?" 

INPUT TR 


IF NOT A(TR) = 128 THEN GOTO 1179 
LET A(TR) = 189 
RETURN 


# 


" 


* 
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SUBTERFUGE 144 


“It'’, whatever it is, hides somewhere on one of 144 squares 
ona12 X 12 grid. A wrong guess is rewarded by POKEing a 
“N” (for no) into the wrong location. This simple program is 
just crying out to be elaborated. Try and introduce some 
feedback for the player, perhaps related to the letter which 
is POKEd into the screen. SUBTERFUGE 144 needs 1K 


LET H = 16396 

LE? A = RND(12) 

LET B = RND(12) 

PRINT 

PRINT 

FOR C = 1 TO 12 

IF C = 1 THEN PRINT " * 123456789012 * " 

PRINT ,55, 

NEXT O 

PRINT ," * 123456789012 * " 

FOR F = 1 TO 19 

INPUT D 

INPUT E 

IF D = A AND E = B THEN GOTO 219 

POKE D*33 + E + 1 + PEEK(H) + PEEK (H + 1)*256, 28 
POKE 462 + PEEK(H) + PEEK( H + 1)#256, 156 + FP 
NEXT F 


CLS 
PRINT ,"SORRY, TIME IS UP" 
GOTO 249 

CLS 

PRINT "YES, YOU FOUND IT" 

PRINT "IN JUST * ";F;" * TRIES" 
PRINT "IT WAS AP * "ZA," ® "3B 
PRINT ,"ANOTHER GAME?" 

INPUT AZ 


CLS 
IF CODE (Af) = 62 THEN RUN 


BENJAMIN 


This no-nonsense program needs a strong NEWLINE 
finger. The computer rolls the dice, and uses them to build 
up pictures of poor, square-faced Benjamin. The winner is 
the player who gets Ben’s face finished first. 
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RANDOMISE 
LE! A = @ 
LEP B= @ 
LE? C = @ 
LET D = @ 


FOR F = 1 TO 599 

LET E = RND(2) 

IF E = 1 THEN LET D = RND(6) 

IF E = 2 THEN LET C = RND(6) 

PRINT 

PRINT ,"DICE * ";F3" * WAS FOR * "3E 
PRINT 

PRINT "PLAYER ONE" 

PRINT "LAST ROLL * "3K,"WANTED * "3A + 1 
IF C = B + 1 THEN LET B = B+ 1 

IF D = A + 1 THEN LET A = A +1 


LETG=A 
GOSUB 396 
PRINT 


PRINT "PLAYER TWO" 
PRINT "LAST ROLL * "303" * WANTED * "3B + 1 
LET G = B 
GOSUB 399 
INPUT AZ 
FOR H = 1 TO 59 
NEXT H 
CLS 
IF AZ = "" THEN NEXT F 
STOP 
IF G>@ THEN PRINT ,CHRS(135) 3 CHRS( 131) 3 CHRS( 131); 
CHRS( 131) 3 CHRS( 134) 
IF G)1 THEN PRINT ,"shift Q shift R_ shift E";CHRA(13¢) 
IF G) 2 THEN PRINT ,"shift Q space shift S space"; CHRs( 
CHRS (138) 
IF G> 3 THEN PRINT ,"shift Q  - ";CHRS(139) 
IF G) 4 THEN PRINT ,CHRS(133)3"shift W2;CHRS( 132) 
IF A<6 AND B<6 THEN RETURN 
PRINT "THE GAME IS OVER" 
PRINT "AND THE WINNER IS PLAYER * "; -1*(A = 6) -2*(B = 6 


THE ENCHANTED 
FOREST 


This game places you smack-dab in the middle, more or 
less, of a forest divided into an infinite number of triangular 
sectors. In one of them hides The Dragon. In others there 
are goblins, and fairies inhabit other sectors. You win the 
game by shooting the dragon. To shoot into, say sector 35, 
just input — 35. 


This is the way it works. You start off in a random sector, 
and are given a choice of sectors into which you can move. 
If the dragon or a goblin is in the sector in which you land, 
you are rather dead. If you land on fairies, you will be 
transported at random to another sector. The fairies, 
goblins and the dragon do not move about during a game, 
so you can, if you don’t get killed in the meantime, work out 
where they all are. You have just three arrows and you kill 
the dragon by shooting it from an adjoining sector. Start off 
you exploration of the enchanted forest by sticking to 
sectors 35 to 65, as you'll have the greatest chance of 
finding the dragon there. 


NEXT Z 
FOR Z = @ TO 19 

LET A = RND(3¢) 

IF A(A) = 1 THEN GOTO 89 

LET A(A) = 1 

LET B(Z) = A + 35 

NEXT Z 

PRINT "FAIRIES HERE" 

INPUT AZ 

LET X = 34 + 2*RND(16) 

LET Y = 7 

CLS 

PRINT "YOU ARE NOW IN SECTOR * "3 
LET A = =1 

FOR Z = @ TO 19 

IF B(Z) = X THEN LET A = 2/5 


NEXT Z 

IF A = @ THEN GOTO 139 

IF A = 1 THEN PRINT "AND THE GOBLINS HAVE KILLED You" 

IF A = 2 THEN PRINT " 3shiftQ YOU FOUND THE 
DRAGON 3shiftQ " 

IF A> @ THEN STOP 

PRINT ",...YOU CAN MOVE TO * "3X - 13" # "3X 4 45 
" x "X44 Y¥ 

FOR Z = # TO 2 

LET A(Z) = @ 

NEXT Z 


FOR Z = @ TO 19 

LET D = B(Z) - X 

IF ABS(D) = 1 OR D = Y THEN LET A(Z/5) = 1 
NEXT Z 

LET D = ABS(D) 


1 


W 
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378 IF D = 2 OR D = 6 OR D = 8 THEN LET A(2) = 14 


389 IF A(@) = 1 THEN PRINT "+4++FAIRIES NEARBY++4" 
398 IF A(1) = ‘ THEN PRINT "***GOBLINS NEARBY*##" 
400 IF A(2) = 1 THEN PRINT "*4* DRAGON NEARBY *4%" 
418 LET A = 2 

415 PRINT "MOVE?" 

429 INPUT M 

438 IF M 9 THEN GOTO 479 

449 LET X = M 

450 LET Y= - Y 

469 GOTO 18g 

416 IF M = -B(1#) THEN GOTO 26¢ 

480 LETG = G - 1 

498 PRINT ,G3" * ARROWS LEFT" 

500 IF G> §@ THEN GOTO 429 


SPIRALS 


SPIRALS makes very, very effective use of the 1K on the 
old ROM ZxX80, by POKEing an unusual playing board 
directly into PRINT statements. Your aim in this program is 
to get to the centre of the spiral in the shortest possible time. 
If you bump into a CHR$(128) you must back out. You 
cannot barge through. There is some very interesting 
coding which puts the score on the screen (see the routine 
starting at line 43). 


1p PRINT " * * SPIRALS * " 

20 POKE 16421, 24 

39 PRINT 

49 PRINT "....eeeeee-" (Note: These are full 
58 PRINT ". + . 7spaces" stops) 
69 PRINT ", ® 2 ® eoeee * o" 

10 PRINT "| ®.*®,. RRR Me." 

89 PRINT ". ®.*¥. RL ROH." 

op PRINT ",®.*% 2... e LR" 

95 PRINT", ®#. HH RHHOH. 

199 PRINT (Mice Ses. we ON 

116 PRINT ". panacea on 

128 PRINT ". . Sees 

139 FOR P = 16460 TO "16623. 

149 IF PEEK ( P ) = 27 THEN POKE P, 128 
158 NEXT P 

169 POKE 16429, 212 

176 POKE 16437, 212 


RUN the above program, which will POKE CHR$(128)'s 
directly into PRINT statements. SAVE this, just in case 
something goes wrong later, then INPUT the following. 


139 PRINT 

148 PRINT "YOUR SCORE IS 9999" 

159 POKE 16414, @ 

169 POKE 16415, @ 

176 LET X = 26 

189 LET A = @ 

199 IF A = 66 THEN GOTO 539 

200 INPUT N 

219 IF N = 5 THEN LET Y = X - 1 

220 IF N = 6 THEN LET Y¥ = X 4 12 

236 IF N = 7 THEN LET Y = X - ie 

240 IF N = 8 THEN LET ¥ = X + 

250 IF A AND Y - A THEN GOTO 430 (Note: Inter these 

269 IF A THEN GOTO 358 as listed) 

278 LET U = X 

289 LET V = @ 

296 GOSUB 519 

399 IF PEEK (PENK(16396) + PEEK(16397)*256 + Y¥) - 128 
THEN GOTO 39¢ 

319 LET A = X 

329 LET U = Y 

339 LET V = 147 


335 GOSUB 519 
348 Goro 429 
358 LET A = # 


369 LE? U = X 
378 LET V = 128 
38g GOSUB 519 
398 LET U = ¥ 


469 LET V = 19 
419 GOSUB 516 


428 LET X = Y¥ 
439 LET S8 = STRS(9999 - PEEK(16414) - PEEK 
(16415) #256) 

440 FOR J = 1 T04 

458 LET U = 147 + J 

466 LET V = CODE 3% 

416 GOSUB 516 

489 LET ae = TLZ(SZ) 

499 NEXT J 

599 GOTO 199 

519 POKE PEEK (16396) + PEEK(16397)*256 + U, V 
RETURN 


PRINT 
seb “GAME pyar” 
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JOIN THE USERS’ CLUB HERE 


( ) Please register me as amember of the National ZX80 
and ZX81 User’s Club, and send me the next 12 issues of the 
monthly club magazine INTERFACE. | enclose £8.50 (UK), 
£11.50 (Europe), £14.50 (elsewhere). 


( ) THE GATEWAY GUIDE TO THE ZX81 AND ZX80 
— Mark Charlton — £5.95 
( ) GETTING ACQUAINTED WITH YOUR ZX81 
— Tim Hartnell — £4.95 
( ) MASTERING MACHINE CODE ON YOUR ZX81 OR 
ZX80 — Tony Baker — £5.95 


National ZX80 and ZX81 Users’ Club, 44-46 Earls Court 
Road, London, W8 6EJ (mail order address only). 


Please send me the indicated items. | enclose cheque for 
f=, made out to NATIONAL ZX80 AND ZX81 
USERS CLUB. 

| have put my name, address and cheque card number on 
the back. 


NEMO ie Aes ona tee wees mee te eae eo Oe 


(Send this page or a copy). 


This book has listings for every game we thought you might 
want, including GALACTIC INTRUDERS, BREAKOUT, 
DRAUGHTS/CHECKERS, STAR TREK, DEATH MAZE, 
4-IN-A-ROW and an 8K ADVENTURE-type program 
SMUGGLERS BOLD. As well, there are a host of new 
games, and adaptations of old favourites. Many of the 
programs will run in just 1K (including a simplified SPACE 
INVADERS-type program). 


Some of the games are based on chance — the dreaded 
Sinclair random number generator — and others depend on 
skill, both yours and the computer. But we've tried to 
ensure that each and every program contains at least one 
programming technique which you'll be able to adapt for 
your own programs. 


You can, if you like, just enter the programs as listed, and 
play them. However, you're likely to get much more 
enjoyment from working with them, altering them as you 
choose, deleting some sections, improving others, and so 
on, until the game carries your personal stamp. Many of the 
1K games can be improved if you have extra memory. At 
the very least, the player prompts can be made more “‘user- 
friendly’, and the rules explained more exactly. 
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